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BASIC 


MATRICES ll 


[Mi Matrices que las variables tendrán un subíndice 
más. 
multidimensionales De todas formas, no es muy corriente 
utilizar matrices de más de dos dimensio- 
L procedimiento para nes, en particular si son altanuméricas. 
trabajar con matrices En cualquier caso, vamos a ver un 
de más de dos di- . ejemplo de utilización de una matriz nu- 
mensiones es similar mérica tridimensional. El programa 3 si- 
al visto hasta el mo- mula la taquilla automática de venta de 
mento. Por lo gene-_ entradas de un hipotético cine que 
ral, por cada dimen- cuenta con dos pisos, cada uno de los 


sión más tendremos cuales dispone de 16 filas con 20 buta- 
que utilizar un bucle anidado más, ya cas por fila. 


REM RAEE ERRE 

20 REM * TAQUILLA DE CINE  *x 

30 REM AXEL 

40 CLS 

50 LET T=0 

$0 DIM C(15,20,2> 

¿0 INPUT “PILA 11-13)" PP 

380 IF F<1 OR F>15 THEN GOTO 20 

0 INPUT "BUTACA (1-20>";B 

100 IF B<1 OR B>20 THEN GOTO 90 
1107 INRUT PISO TL=ZP" gp 

120 IF P<>1 AND P<>2 THEN GOTO 110 
130 CLS 

1940 IF C(F,B,P>=1 THEN PRINT "OCUPADA" :PRINT :¿GOTO 190 
150 LET CC(F,B,P>=1 

160 LET T=T+1 

170 PRINT "AQUI TIENE SU ENTRADA" 
180 PRINT 

190 IF T<FxB*P THEN GOTO 70 

200 CLS 

210 PRINT :¿PRINT 

PRINT "AGOTADAS LAS LOCALIDADES" 


En este caso la matriz sólo almacena que representa está vacía, mientras que 
ceros y unos. Si una posición de la matriz si contiene un uno la butaca está ocu- 
contiene un cero, significa que la butaca pada. 


E Características comunes 
en matrices de cualquier 
dimensión 


1. Sielíndice de la variable al dimen- 
sionar no es un numero entero, el orde- 
nador tomara la parte entera: 


DIM A(16.5) equivale a DIM A(16) y 
DIM A(15.1, 17.7) equivale a DIM A(15,17) 


- 2. En la instrucción DIM se puede es- 
cribir entre paréntesis un número, una ex- 
presión o incluso el nombre de otra va- 
riable a la que previamente se le haya 
asignado contenido: 

Serían, pues, correctas líneas del tipo: 


DIM A(6 * 5 + 1,7) o DIM A(M,N) 


3. El nombre genérico matriz sigue las 
mismas normas de formación que el nom- 
bre de cualquier variable, excepto en el 
SPECTRUM, que sólo puede tener una le- 
tra. 

4. No tiene sentido escribir como sub- 
índice un número negativo. Si lo hace 
obtendrá un mensaje de error. 

5. Dentro de un programa sólo pode- 
mos referirnos en un momento dado a un 
componente de la matriz (ACI), ACI,J), 
etcétera), y no a la matriz completa. De 
hecho, en el mismo programa se podrían 
utilizar las variables A y AC!). 

6. Excepto en el SPECTRUM, no es ne- 
cesario dimensionar si la matriz va a 
constar de menos de 11 elementos (si es 
de una dimensión), menos de 10x 10 
elementos (si es de dos), etc. Sin embar- 
go, puede resultar útil hacerlo para que 
el ordenador no reserve memoria en ex- 
ceso. 

7. Es posible dimensionar, por ejem- 
plo, A(20) y trabajar sólo con A(1), A(2), 
A(3) y A(4); lo único que ocurre es que 
parte de memoria reservada no se utili- 
za. Pero daría error intentar trabajar con 
A(21), A(22), etc. 

8. Al igual que en el caso de las va- 
riables simples, el ordenador inicializa las 
matrices, asignando el valor 0 atodas sus 
posiciones si se trata de una matriz numé- 
rica y la cadena nula si es altanumérica; 
por tanto, si no se asignan valores espe- 
cíficos a algunas posiciones de una ma- 
triz, su valor será cero (matriz numérica) 
o cadena nula (matriz altanumérica). In- 
cluso en el SPECTRUM, en el que era ne- 


cesario inicializar todas las variables, el 
hecho de dimensionar implica poner a 

cero todos los elementos de la matriz si 
es numérica y a cadena nula si es alfanu- 
mérica. 

9. No se puede dimensionar la misma 
matriz dos veces en el mismo programa. 

Unicamente en el SPECTRUM no daría 
error por la redimensión de una matriz. 


O Subrutinas 


Al ir profundizando en el estudio del BA- 
SIC vamos teniendo más clara la idea de 
que cada vez podemos diseñar progra- 
mas más complejos y no va siendo sufi- 
ciente tener como único criterio que «el 
programa funcione». 

Tan importante como que el programa 
funcione es que tenga una lógica clara 
para facilitar la localización de errores, 
modificaciones, etc. 

Para ello es necesario estructurar los 
programas lo más posible. Esto se puede 
conseguir con la utilización de subruti- 
nas. 

Una subrutina, también llamada sub- 
programa o ruina, no es más que un con- 
junto de líneas de programa que realizan 
una determinada tarea. En muchos casos 
dicha tarea será necesaria en distintas 
partes de un programa. Las subrutinas 
sólo se escriben una vez en un programa, 
pero se pueden ejecutar tantas veces 
como sea necesario y en los lugares del 
programa que haga falta. 

El empleo de subrutinas permite, en 
muchos casos, acortar el tamaño de los 
programas, a la vez que aumenta la 
efectividad de los mismos. 

Los programas BASIC se jerarquizan con 
el empleo de subrutinas. El programa 
principal constituye la jerarquía más alta 
y está formado por una serie de instruc- 
ciones situadas al principio del progra- 
ma. El programa principal controla el fun- 
cionamiento general del programa y 
pide la ejecución de las subrutinas cuan- 
do es necesario. 

La instrucción que produce la «Iama- 
da» a una subrutina es GOSUB, cuyo for- 
mato es el siguiente: 


GOSUB <número de línea > 


Una instrucción GOSUB dentro de un 
programa obliga a que se transfiera el 
control a la línea especificada a conti- 


nuación del GOSUB. Sin embargo, esto no 
es equivalente a la instrucción GOTO, ya 
que existe otra sentencia, RETURN que in- 
dica el final de la subrutina, de modo que 
cuando la ejecución de la subrutina lle- 
ga a un RETURN, el control vuelve de nue- 
vo al programa principal, a la instrucción 
siguiente al GOSUB. 

En la figura 1 podemos ver este efecto 
de «ida y vuelta». 

En la figura 2 vemos el esqueleto típico 
de un programa bien estructurado. 


A 1999 LET H=5H+1 
190 LET B=B+1 E 
119 GOSUB 1099 1959 RETURN 


12% PRINT "SE EJECUTOS*UNA SUBRUTINA 


] A | Fig. 1. Efecto de «ida y vuelta» de las subrutinas. 
Ea 


29 CLS 

30 GOSUB 1994 
4 GOSUB 2009 
5 GOSUB 30900 


190 END 
1009 REM====PRIMERA SUBRUTINA 


1209 RETURN 
2000 REM====SEGUNDA SUBRUTINA 


2209 RETURN 
300% REM====TERCERA SUBRUTINA 


3500 RETURN 


| turado con subrutinas. 


Las líneas desde la 10 hasta la 100 
constituirian el programa principal desde 
el cual se controlan tres subrutinas. 

El empleo de subrutinas evita, como ya 
hemos dicho, repetir ciertas tareas cada 
vez que son necesarias. 

Supongamos que vamos a diseñar un 
programa que frecuentemente debe so- 
licitar un dato numérico y no se debe ad- 
mitir números negativos. El esqueleto bá- 
sico sería el representado en la figura 3. 

También es muy frecuente que desde 
dentro de una subrutina se llame a otra. 


[4 Fig. 2. Esqueleto básico de un programa estruc- 


59H GOSUB 1299 
ds REM SUBRUTINA DE 


GOSUB 3909 


189% RETURN 


3D0%$ REM SUBRUTIM DE ...... 


3050 RETURN 


| Fig. 3. Esqueleto básico de un programa que lla- 
| ma varias veces a una misma subrutina. 


Este caso se muestra en el esqueleto de 
la figura 4. 


1% REM 
2% CLS 


190 GOSUB 6904 
14% GOSUB 6904 


32% GOSUB 6909 


DDH REM SOLICITA UN DATO 
691% INPUT "INTRODUZCA UN NUMERO POSITIVO";A 
6029 IF ACM THEN GOTO 6919 
6939 RETURN 


A Fig. 4. Esqueleto básico de un programa en el 
que una subrutina llama a otra. 


Por otra parte, hay que señalar que 
sólo se puede entrar en una subrutina 
con la instrucción GOSUB, ya que de lo 
contrario aparecerá en pantalla un men- 
saje de error: RETURN WITHOUT GOSUB. Esto 
se debe a que el ordenador encontraría 
una instrucción RETURN y no sabría a qué 
parte del programa volver, puesto que 
no habría pasado por el GOSUB corres- 
pondiente. 

Es muy frecuente la utilización de subru- 
tinas en programas que presentan un 
MENU DE OPCIONES, de modo que, según 
la opción seleccionada, se ejecutará 
una subrutina u otra. 

El programa 1 contiene todo lo explica- 


do hasta el momento: varias llamadas a 
una misma subrutina, subrutinas que lla- 
man a otras subrutinas y menu de op- 


Su objetivo es poder elegir sumas, res- 
tas Oo multiplicaciones. Los operandos 
son generados al azar por el ordenador. 


ciones. El usuario debe acertar los resultados. 


REM AAA 
REM * OPERACIONES ARITMETICAS  *x 
REM RR 
CLS 
PRINT TAB(17)>;"OPCIONES" 
PRINT TAB(17)>;" . > 
PRINT ¿PRINT :¿PRINT 
PRINT TAB(17>;"1. SUMAS" 
PRINT 
PRINT TAB(17>);"2. RESTAS" 
PRINT 
PRINT TAB(17)>);"3. MULTIPLICACIONES" 
PRINT 
PRINT TAB(17);"4. TERMINAR" 
PRINT :PRINT :*PRINT 
PRINT "PULSA LA OPCION DESEADA" 
LET R$=INKEYS$: IF R$="" THEN GOTO 170 
IF ASC(R$>)<49 OR ASC(R$)>52 THEN GOTO 
CLS 
IF R$="1" THEN GOSUB 1000 
IF R$="2" THEN GOSUB 2000 
IF R$="3" THEN GOSUB 3000 
IF R$="4" THEN END 
GOTO 40 
REM x* SUMAS  * 
GOSUB 4000 
PRINT Aj"+"3B;3"="; 
INPUT R 
PRINT :¿PRINT 
IF R=A4+B THEN PRINT "CORRECTO" :GOTO 1070 
PRINT "INCORRECTO. LA RESPUESTA ES "¡A+B 
GOSsuB 5000 
RETURN 
REM x* RESTAS  * 
GOSUB 4000 
PRINT Aj¡"-"3B;3"="; 
INPUT R 
PRINT ¿PRINT 
IF R=A-B THEN PRINT "CORRECTO" :GOTO 2070 
PRINT "INCORRECTO. LA RESPUESTA ES "¡A-B 
GOSUB 5000 
RETURN 
REM * MULTIPLICACIONES  * 
GOSUB 4000 
PRINT A¡"x*";B;"="; 
INPUT R 
PRINT ¿PRINT 
IF R=AxB THEN PRINT "CORRECTO" :GOTO 3070 
PRINT "INCORRECTO. LA RESPUESTA ES "¡Ax*B 
GOSUB 5000 
RETURN 
REM x* GENERACION ALEATORIA DE NUMEROS  * 
LET A=INT(RND(1>)*10000> 
LET B=INT(RND(1)x*10000> 
RETURN 
REM x* PAUSA ANTES DE VOLVER AL MENU  * 
PRINT :¿PRINT :¿PRINT 
PRINT "PULSA UNA TECLA PARA CONTINUAR" 
LET T$=INKEY$: IF T$=""THEN GOTO 5030 
RETURN 


. BASIC 


En las figuras 5 y 6 podemos ver la pre- 
sentación en pantalla del menú de op- 
ciones así como el aspecto de la panta- 
lla durante la ejecución de una de las sub- 
rutinas principales. 


OPCIONES 


1. “SUMAS 


2. RESTAS 


3. MULTIPLICACIONES 
49. TERMINAR 


PULSA LA OPCION DESEADA 


A | Fig. 5. Presentación en pantalla del menú de op- 
Jj ciones del programa 1. 


1213 - 6518 =? 5128 


INCORRECTO. LA RESPUESTA ES -5305 


PULSA UNA TECLA PARA CONTINUAR 


Fig. 6. Presentación en pantalla de una de las op- 
ciones del programa 1. 


Sin embargo, en el caso de los menús, 
donde la opción siempre es múltiple, re- 
sulta más adecuado utilizar la instrucción 
ON-GOSUB, que proporciona otra forma 
de direccionamiento hacia las distintas 
subrutinas. Su formato es el siguiente: 


ON <expresión> GOSUB n.? línea, n.? lí- 
nea... 


Entre las palabras ON y GOSUB se escri- 
be una variable numérica o una expre- 
sión aritmética que al evaluarse decidirá 
la subrutina a la que debe dirigirse la eje- 
cución del programa. 

Tras el GOSUB se escribe una lista de nú- 
meros de líneas separados por comas 
que corresponden a otras tantas subru- 
tinas. 

La subrutina que se ejecutará es aque- 
lla cuya posición en la lista situada tras 
el GOSUB coincide con el valor de la va- 
riable o expresión. 

Podemos ver un ejemplo en la figura 7. 


Fig. 7. Relación entre el valor de la variable y la 
rutina ejecutada en la instrucción ON-GOSUB. 


Hay que tener en cuenta que si la va- 
riable toma un valor superior al número 
de líneas que componen la lista no se 
ejecutará ninguna subrutina y la ejecu- 
ción continuará por la línea siguiente al 
ON-GOSUB. Sin embargo, si la variable 
toma un valor negativo se producirá un 
error. 

Por otra parte, hay que advertir que el 
SPECTRUM no dispone de la instrucción 
ON-GOSUB. Sin embargo, podemos con- 
seguir un efecto similar con el siguiente 
formato para GOSUB: 


GOSUB <expresión> 


De este modo no es necesario indicar 
tras el GOSUB un número de línea concre- 
to, sino que podemos especificar una va- 
riable o una expresión aritmética que al 
evaluarse determinará el número de lí- 
nea correspondiente a la subrutina. 

Por ejemplo, la instrucción ON-GOSUB 
que vimos en la figura 7 tendría el si- 
guiente formato en el SPECTRUM: 


GOSUB (I+3).100 


Para finalizar, el programa 2 permite la 
resolución de ecuaciones de segundo 
grado. El programa está estructurado en 
tres subrutinas dependiendo del tipo de 


REM HAHAHAHA AAA ARAN 
REM * ECUACIONES DE SEGUNDO GRADO  * 
REM HAHAHA E AA ERRE RR 
CLS 

INPUT “COEFICIENTES A,B Y C DE LA ECUACION";A,B,C 
CLS 
LET D=B" 2-4xAx*C 
LET S=SGN(D>+2 
ON S GOSUB 200,300,400 

PRINT ¿PRINT :PRINT :¿PRINT 

PRINT "¿QUIERES RESOLVER OTRA ECUACION? (S/N>" . 
LET R$=INKEY$:1F R$="" THEN GOTO 120 
IF R$="S" OR R$="s" THEN GOTO 40 

END . 

REM * RAICES IMAGINARIAS * 

PRINT :PRINT 

PRINT "RAICES IMAGINARIAS" 

PRINT :PRINT 

LET R=-B/(2xA) : . 

LET I=ABS(SQOR(ABS(D) >/(2xA) > 

PRINT "X1 = "¿Ri"e"plpri” 

PRINT 

PRINT "X2 = "¿Ri"-"3lp"i" 

RETURN ; 

REM * RAIZ REAL DOBLE * 

PRINT :PRINT 

PRINT "RAIZ REAL DOBLE" 

PRINT :PRINT 

LET R=-B/(2xA) 

PRINT "X = "¡R 

RETURN 

REM * RAICES REALES DISTINTAS * 
PRINT :PRINT 

PRINT "RAICES REALES DISTINTAS" 
PRINT :PRINT 

LET Ri=(-B+SQR(D) >)/(2xA) 

LET R2=(-B-SQR(D)>/(2*A) 


PRINT "X2 = "¿R2 
RETURN 


soluciones de la ecuación: imaginarias, CLS por PRINT CHR$(147) si trabajamos 
reales distintas o reales dobles. con un COMMODORE. 


Sólo recordar que en los dos progra- En el SPECTRUM habrá que cambiar la lí- 
mas vistos habra que sustituir las asigna- nea 90 del programa 2 por: 
ciones tipo LET R$=INKEY$S por GET R$ y los 90 GOSUB (S+1)-.100 


Ensamblador 


A ha quedado claro 
que el lenguaje má- 
quina es físicamente 
una «ristra» de unos y 
ceros, números en bi- 
nario, que normal- 
mente se represen- 
tan con cifras en otros 
sistemas de numeración más manejables 
(decimal, hexadecimal, octal, etc.). Pro- 
gramar en máquina utilizando números 
exclusivamente, es un trabajo de titanes, 
y además inútil, gracias a los programas 
ensambladores. 

Los ensambladores, además de tradu- 
cir los códigos nemónicos a sus corres- 
pondientes números, permiten la utiliza- 
ción de etiquetas y otras utilidades que 
facilitan enormemente el desarrollo de 
programas en lenguaje máquina (en 
este caso lenguaje ensamblador). 

Para cada microprocesador diferente 
existen diversos programas ensamblado- 
res. En este caso nos referiremos al pro- 
grama llamado MACRO-80, un ensambla- 
dor que está disponible para la mayoría 
de los ordenadores personales y que 
permite ensamblar códigos de Z-80, 8080 
e incluso 6402. De todas formas, la no- 
menclatura de los ensambladores es 
muy similar. 

Expliquemos brevemente cuál es el 
proceso para realizar un programa eje- 
cutable en lenguaje máquina. 

En primer lugar, se debe realizar la co- 
dificación en lenguaje ensamblador del 
algoritmo a utilizar en el programa y es- 


MAQUINA 2-80 
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cribir este programa en un fichero de tex- 
to mediante un editor de texto cualquie- 
ra. Este fichero puede archivarse en el 
dispositivo periférico a utilizar. (El más 
aconsejable por su velocidad es el dis- 
co, pero son posibles otros, como la tinta 
de cassette, etc. 

Una vez realizado el programa en tex- 
to (se le suele llamar programa fuente), 
cargaremos y ejecutaremos el programa 
ensamblador que realizará la traducción 
del archivo de texto a lenguaje máquina 
(llamado también programa objeto) y 
que será almacenado en el mismo dispo- 
sitivo del que leyó el programa fuente. El 
programa obtenido de esta forma no es 
realmente ejecutable, ya que el ma- 
croensamblador Macro-80 realiza un en- 
samblado intermedio de código reloca- 
lizable. Para que el código sea ejecuta- 
ble debemos utilizar un segundo progra- 
ma, editor de enlaces simbólicos (Linker) 
con el que obtendremos un programa ya 
ejecutable. La nomenclatura de este se- 
gundo programa es bastante complica- 
da, por lo que es aconsejable un estudio 
detallado del manual. 

La ventaja de este método es el en- 
samblado por partes: se hacen peque- 
ñas rutinas que se ensamblan por sepa- 
rado y luego se unen con el «LINKER» con- 
feccionando así programas grandes de 
forma modular. 

Expliquemos brevemente la nomencla- 
tura del macroensamblador: la forma ge- 
neral de una línea de programa es: 


ETIQUETA: LD  A,1000H;¡CARGA ACUM. 
Etiqueta de Dirección Código de Opera- 
ción Argumentos Comentar. 


todas las partes de la línea son opciona- 
les. 


La etiqueta es un punto de referencia 
utilizable para direccionar la instrucción 
en el módulo donde se define la etique- 
ta. Se pueden definir etiquetas como PU- 
BLIC, con lo que son utilizables por otros 
módulos, o como EXTERNAL, permitiendo 
definirse fuera del programa. 

El ensamblador tiene varios modos de 
funcionamiento dependiendo de si se 
desea que el código objeto sea reloca- 
lizable o no. 

Por supuesto, los argumentos pueden 
ser expresiones aritmético-lógicas, en las 
que se incluyen variables; su contenido 
puede ser 8 Ó 16 bits, dependiendo del 
caso. 

Al inicializar en ensamblador, éste está 
en el sistema de ensamblado para 8080, 
por lo que debemos usar la directiva que 
cambia el sistema al del Z-80. Esta es de 
la forma: 


.280 


Con ésta, el código fuente será tratado 
como perteneciente al Z-80. En caso con- 
trario el ensamblador trataría el progra- 
ma como si fuese de 8080, y al poseer 
una nomenclatura distinta, detectaría 
numerosos errores. La asignación de eti- 
quetas que no se realiza de forma relati- 
va (sólo en el caso de direcciones) se 
puede asignar con la sentencia: 


<NOMBRE > EQU <EXPRESION > 


El módulo en ensamblador debe finalizar- 
se con la sentencia END. 


Debemos diferenciar entre sentencias 
de programa y directivas. Las directivas 
son órdenes que afectarán al ensambla- 
do cambiando la forma de realizarse el 
mismo, pero que no formarán parte del 
código objeto. Suelen ir precedidas de 
un punto “.*, por lo que son fácilmente di- 
ferenciables. 


Dependiendo de la calidad del macro- 
ensamblador que utilicemos, habrá un 
mayor número de directivas que amplia- 
rán el número de opciones permitiendo 
una mayor versatilidad. 


Una de las opciones más sofisticadas 
es la de ensamblado condicional. Esta 
permite que dependiendo del valor que 
tenga una determinada expresión lógica 
en la que puede haber variables del pro- 
grama, se ensamble o no un grupo de 
instrucciones. 


Esto permite que insertemos o no códi- 
go, dependiendo de unos valores, fácil- 
mente modificables, que cambiaremos 
en cada aplicación en la que deseemos 
utilizar una rutina que hayamos realizado 
previamente. 


Un programa se llama macro-=ensam- 
blador y no simplemente ensamblador, 
cuando dispone de la utilidad de ma- 
cros. 


Esta permite que el programa ensam- 
blador se encargue de repetir zonas de 
programa o datos, librando de este pe- 
sado trabajo al programador. A conti- 
nuación ofrecemos un breve resumen de 
las directivas disponibles en el macro-en- 
samblador MACRO-80. 
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PROGRAMAS 


EDUCATIVOS + DE UTILIDAD + DE GESTION + DE JUEGOS 


'O Programa: 


STAR TREK 


L juego que vamos a 
ver a continuación es 
una versión del famo- 
so STAR TREK. Este fue 
uno de los primeros Ma 
juegos que apareció | | BABE Miss ms 
para ordenador y, E 

aunque ha pasado 
mucho tiempo, se puede decir que es 
uno de los mejores, ya que en él se mez- 
cla la acción con la inteligencia. 


BRGUJZO 


[A Fig. 1. Pantalla de juego y comandos. 


ES 
*k STAR TREK * 
iS 


AMOS Old lOlOOIOJOOK 
*x POR: k 
k xk 
* MANUEL ALFONSECA x* 
* 
xk 


00 30UaAp»>0N- 


Y k 
Fco. MORALES *k 
AS 


ES 
x (c) Ediciones Siglo Cultural *x 
*x (c) 1987 k 
FMI lolala lalalala lalola lalala lola lojolojolojok 


LET x=0: LET xh=0: LET XK=0: CLS : PRINT " ESPERA UN MOMENTO. "**>>*" 

ESTOY CREANDO LA GALAXIA. " 

30 DIM G(8,8) > 

40 DIM Q3$(8,32): REM MAPA DEL CUADRANTE DE LA GALAXIA” 

50 DIM Z(10,10): REM MAPA ACUMULADO DE LA GALAXIA" 

60 DIM F(8): REM DANOS EN LA NAVE AVENTURA 

70 DIM K(10, 3): REM NAVES ENEMIGAS EN ESTE CUADRANTE 

80 DIM 1(1,2): REM BASES ESTELARES EN ESTE CUADRANTE 

90 DIM E(8, 2): REM ESTRELLAS EN ESTE CUADRANTE 
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91 REM 
95 REM VARIABLES C UTILIZADAS POR TORPEDO 
99 REM 
100 DIM A(8): DIM B(8): DIM C(8): DIM D(8) 
110 LET A(1)=0: LET A(2)=-1: LET A(3)=1: LET A(4)=-1: LET A(5)=0: LET A(8)=0: L 
ET A(7)=1: LET A(8)=1 
120 LET B(1)=-1: LET B(2)=0: LET B(3)=0: LET B(4)=1: LET B(5)=1: LET B(8)=0: LE 
T B(7)=0: LET B(8)=-1 
130 LET C(1)=1: LET C(2)=1: LET C(3)=0: LET C(4)=-1: LET C(5)=-1: LET C(6)=-1: 
LET C(7)=0: LET C(8)=1 
140 LET D(1)=0: LET D(2)=-1: LET D(3)=-1: LET D(4)=0: LET D(5)=0: LET D(8)=1: L 
ET D(7)=1: LET D(8)=0 
1000 RANDOMIZE 
1001 REM : 
1002 REM AsSaSlSlO OSOS lOE Ola jalalE lalalala jalalo lalala jalolalalalojojolok 
1003 REM * COMIENZA LA CREACION DE LA AVENTURA * 
1004 REM A*MOaSMOdOdOiO Oia iaa aaa aaa aaa aaa aiaiaiaaalaoook 
1005 REM 
1008 REM A3MaSiOIOO aaa lalalala laa iaa iaiaiaíaíaa aaa ía iaa ialajololalalakakok 
1007 REM * GENERACION DE ESTRELLAS, BASES Y NAVES ENEMIGAS x* 
1008 REM Asado lola ajo lala aaa laa aaa ajo faja alo aaa aa lalalala alo lolakalok 
1009 REM 
1010 LET B9=0: LET K9=0 
1020 FOR I=1 TO 8: FOR J=1 TO 8: LET A=RND 
1030 LET AK=0 
1040 IF A>.8 THEN LET AK=1 
1050 IF A>.95 THEN LET AK=2 
1060 IF A>9799999 THEN LET AK=3 
1070 LET K9=K9+AK 
1080 LET A=RND 
1090 LET AB=0 
1100 IF A>.96 THEN LET AB=1 
1110 LET B9=B9+AB 
1120 LET AS=1+INT (8xRND) 
1130 LET G(I,J)=AS+10*AB+100x*AK 
1140 NEXT J: NEXT 1 
1150 LET K7=K9 
1191 REM 
1192 REM AdSSdESOiO dida aaa load aaa ajoiololk 
1200 REM * POSICION DE LA NAVE AVENTURA * 
1201 REM AMOROSOS SS lSlOS SIS jSlO Ola jaO OO jololOJO KK 
1202 REM 
1210 LET Q1=1+INT (8*XRND): LET Q2=1+INT (8XRND) 
1220 LET Si=1+INT (8*RND): LET S2=1+INT (8*RND) 
1221 REM 
1222 REM AdddSSlOlOlOlO ak 
1230 REM * FECHAS x* 
1232 REM AdSOaOiOlOÓlÓO KK 
1233 REM 
1240 LET TO=100x(20+INT (20*RND)): REM FECHA INICIAL 
1250 LET T=TO: REM FECHA ACTUAL 
1260 LET T9=30: IF K9>20 THEN LET T9=30: REM FECHA FINAL 
1261 REM 
1262 REM AMSNMOOOiO OO lOlOlOlOlÓOK 
1270 REM * OTROS DATOS x* 
1272 REM Add O OOOO jojolok 


1273 REM 

1280 LET EO=3000: REM ENERGIA INICIAL 

1290 LET El=EO0: REM ENERGIA ACTUAL 

1300 LET PO=10: REM NUMERO INICIAL DE TORPEDOS 
1310 LET Pi=PO: REM NUMERO ACTUAL DE TORPEDOS 
1320 LET SO=0: REM ESCUDO PROTECTOR ACTUAL 
1321 REM 


1322 REM oMMSoSSSTSlSlSlSlTVlTElOldlolOlOlolOJJK 
1500 REM * COMIENZA LA AVENTURA * 
1502 REM AMOS aSOlolojok 
1503 REM 


1510 
1515 
1520 


1530 
1540 
1550 
1555 
1560 
R" 

1570 
1580 
1600 
1610 
1650 
1680 
1700 
1720 
1740 
1760 
1780 
1790 
1791 
1792 
2000 
2001 
2002 
2010 
2020 
2030 
2040 
2050 
2060 
2065 


CLS : PRINT "AL CAPITAN DE LA NAVE AVENTURA. ESTAS SON LAS ORDENES: " 
PRINT 


PRINT "DEBE USTED DESTRUIR LAS ";K9;" NAVESENEMIGAS QUE HAN INVADIDO LA GA- 


PRINT "LAXIA, ANTES DE QUE PUEDAN ATA-" 

PRINT "CAR EL CUARTEL GENERAL DE LA FE-DERACION EN LA FECHA ESTELAR” 

PRINT TO-T9;". ESTO LE DEJA ";T9;" FECHAS. ” 

PRINT 

PRINT "HAY ";B9;" BASES ESTELARES EN LA GA- LAXIA, DONDE PUEDE REABASTACE 


PRINT "LA NAVE AVENTURA. BUENA SUERTE!" 

PRINT : INPUT "PRESIONE ENTER CUANDO ESTE DISPUESTO A ASUMIR EL MANDO. ";A$ 
CLS : GO SUB 1610: GO TO 2000: REM INICIALIZAR PANTALLA 

PRINT AT 0,0; INVERSE 1;"P.CORTO ALCANCE" 

PRINT AT 13,16; INVERSE 1; "FECHA" 
PRINT AT 14,16; INVERSE 1;"CONDICION” 
PRINT AT 15,16; INVERSE 1; CUADRANTE” 
PRINT AT 16,16; INVERSE 1;"SECTOR" 
PRINT AT 17,16; INVERSE 1; "ENERGIA" 
: 4 
15" 


PRINT AT 18,16; INVERSE "TORPEDOS" 
PRINT AT 19,16; INVERSE "ESCUDO" 
RETURN 

REM 

REM aSSSlO OSO lSIOlOlOOOjOJOJOK 


REM * SALA DE CONTROL *X 
REM aaa lO lO lO lOJOlOJOIOJOK 


REM 


GO SUB 2020: GO TO 2200 

GO SUB 1610: PRINT AT 13,0; INVERSE 1;"P.LARGO ALCANCE" 
IF F(3)<0 THEN GO TO 2150 

PRINT "=== -=oo=--- A 

FOR I=1 TO 3: PRINT AT 14+1I,0;: FOR J=1 TO 3 

LET A=0 

LET Al=Q1+I: LET A2=Q2+J 


2070 1F (A1>2) AND (A1<11) AND (A2>2) AND (A2<11) THEN LET A=G(A1-2,A2-2) 

2080 LET Z(Q1+1-1,Q02+J-1)=A: PRINT (” "+STR$ (A))(1+(4>9)+(4>99) TO 4+(4>9)+( 
A>99)); 

2090 NEXT J: NEXT I 

2100 PRINT AT 18,0; " --o=====m=mm ": RETURN 

2150 GO SUB 9947: PRINT : PRINT FLASH 1;"P. LARGO ALCANCE ESTROPEADA"” 


2160 
2170 
2180 
2181 
2182 
2200 
2201 
2202 
2210 
2230 

LET 
2231 
2232 
2240 
2241 


2242 
2250 
2260 


FOR I=1 TO 5: PRINT AT 13+1,0;: FOR J=0 “TO 15 
PRINT ” ”; 

NEXT J: NEXT 1: RETURN 

REM 

REM doSSTS SOON lSlSlO SEIS IOIOJOJOK: 


REM * ENTRAMOS EN UN NUEVO CUADRANTE * 

REM AMS SOS SS aaa lalala ajaja lalalala jajalolalalololok 

REM 

PRINT AT 15,26;Q1;",";Q2 

LET S3=G(Q1,Q2): LET K3=INT (S3/100): LET S3=S3-100*K3: LET B3=INT (S3/10): 
S3=53-10*B3 


REM MSM S OOOO lalalala aaa jalalololaOK 


REM * DISTRIBUCION EN EL CUADRANTE * 
REM aaa lO ISSO lO lalalala lalalala jojojo lajojojolojok: 


FOR I=1 TO 8: FOR J=1 TO 32: LET Q$(1,J)=" ": NEXT J: NEXT 1 
LET Q$(S1, 1+4*(S2-1))="<" 


2270 LET Q$(S1, 2+4*x(S2-1))="=" 

2280 LET Q$(S1, 3+4x(S2-1))=">" 

2290 LET V3=".": LET W$=".": LET X$="." 

2300 FOR I=1 TO K3: GO SUB 2400: LET K(I,1)=R1: LET K(1,2)=R2: LET K(1,3)=200: N 
EXT I 

2303 IF K3=3 THEN GO TO 2310 


2305 
2310 


FOR I=K3+1 TO 3: LET K(1,3)=0: NEXT 1 
LET-NS="="<CLET WeO=0": UET:XA8="=" 
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2320 FOR I=1 TO B3: GO SUB 2400: LET I(1,1)=R1: LET 1(1,2)=R2: NEXT 1 
2330 LET V$=" ": LET W$="x*": LET X$=" " 

2340 FOR I=1 TO S3: GO SUB 2400: LET E(1,1)=R1: LET E(1,2)=R2: NEXT 1 
2350 GO TO 2500 

2400 LET Ri=1+INT (8*RND): LET R2=1+INT (8*XRND) 

2410 IF Q$(R1,2+4*(R2-1))<>" " THEN GO TO 2400 

2420 LET Q$(R1, 1+4*(R2-1))=V$ 

2430 LET Q$(R1, 2+4*(R2-1))=W$ 

2440 LET Q$(R1, 3+4x*(R2-1))=X$ 

2450 RETURN 

2451 REM 

2452 REM AdSSSS OOOO OOO OOOOOOO OOOO OOOO JO ORO ROJO ROO OOOO OOJOOIOJOJOjOjaOjaOloK 

2500 REM * COMPROBACION DE POSICION DE AMARRE CON ESTACION * 
VALIA ES 

2502 REM 

2510 IF B3=0 THEN GO TO 2600: REM NO HAY BASE 

2520 IF S2<>1(1,2) THEN GO TO 2600: REM NO ESTAMOS AMARRADOS 

2530 IF (S1<1(1,1)-1) OR (S1>I(1,1)+1) THEN GO TO 2600 

2540 PRINT AT 14,26; FLASH 1;"PUERTO" 

2550 LET DO=1: REM EN PUERTO 

2560 LET El=EO: LET Pi=PO: LET SO=0: REM REPOSTAMOS 

2570 GO SUB 9947: PRINT "SIN ESCUDO PROTECTOR PARA  ELAMARRE. " 
2580 GO TO 2750 

2600 LET DO=0: REM NO ESTAMOS AMARRADOS 

2610 IF K3>0 THEN GO TO 2650 

2620 IF El<,1x*EO THEN GO TO 2700 

2630 PRINT AT 14,26; "NORMAL" 

2640 GO TO 2750 

2650 PRINT AT 14,26; FLASH 1;"ROJA " 

2660 BEEP 1,15 

2670 IF S0>200 THEN GO TO 2750 

2680 GO SUB 9947: PRINT : PRINT FLASH 1;" ESCUDO PROTECTOR MUY BAJO. A 
2690 GO TO 2750 

2700 PRINT AT 14,26; INVERSE 1;"AMBAR " 

2750 IF F(2)<0 THEN GO TO 2800: REM PANTALLA DE CORTO ALCANCE 

2760. PRINT AT A AKAQAQA A a a o A 

2770 FOR I=1 TO 8: PRINT AT 1+1,0; 

2780 FOR J=1 TO 32: PRINT Q$(1,J);: NEXT J: NEXT 1 

2790 GO TO 2820 

2800 GO SUB 9947: PRINT FLASH 1;" P.CORTO ALCANCE ESTROPEADA z 
2810 FOR I=1 TO 8: PRINT AT 1+1,0;: FOR J=1 TO 32: PRINT " ";: NEXT J: NEXT 1 
2820 PRINT AT 12, 03 “——————— e « 


2830 PRINT AT 13,26;" “¡AT 13,26;T 

2840 PRINT AT 16,26;" ";AT 16,26;S1;",";S2 
2850 PRINT AT 17,26;" "¡AT 17,26;E1+S0 
2860 PRINT AT 18,26;" ";AT 18,26;,P1 

2870 PRINT AT 19,26;" "¡AT 19,26;S0 

2871 REM 


2872 REM aalalalO SIS OSOS OOO OfOlO Olla +4 

2900 REM * COMPROBACION DE COMBUSTIBLE * 

2901 REM AMSiSNSSS SS iOlOlESESa lalalala a ajololololajolojok 

2902 REM 

2910 IF SO+E1<10 THEN GO TO 2930 

2920 IF (E1>10) OR (F(7)=0) THEN GO TO 3000 

2930 BEEP 1,15 

2940 CLS : PRINT "ERROR FATAL!!!"”*”"LA NAVE HA QUEDADO VARADA EN ELESPACIO. " 
2950 PRINT *"NO HAY ENERGIA SUFICIENTE, Y EL CONTROL DE ESCUDO NO PUEDE PASAR" 
2960 PRINT "ENERGIA A LA SALA DE MAQUINAS. " 

2970 GO TO 9994 

2971 REM 

2972 REM AMS SMS SS ldlOSlS a ldlOlS Ola lald OOO lalololOlajololak 

2990 REM * BUCLE DE PETICION DE ORDENES * 

2991 REM doSdSSSS ESOS E lElEO SEE” OSOS” E lOjololOJAOK 

2992 REM 

3000:090:-SUB. -9947: PREINT/AT 20,05 "10223323315: ORDENES 337320300252 


3030 PRINT *$0;AT 0,0; INVERSE 1;"Q"; INVERSE 0;":NAV "; INVERSE 1;"W"; INVERSE O 
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;":CAN "; INVERSE 1;"E"; INVERSE 0;":TOR "; INVERSE 1;"R"; INVERSE 0;":ESC 
"; INVERSE 1;"T"; INVERSE 0;":DAN "; INVERSE 1;"Y"; INVERSE 0;":COM "; INVERS 


E 1; 
3040 
3060 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3141 
3142 
4000 
4001 
4010 
4030 
4050 
4060 
4070 
SUB 
4090 
4100 
4110 
SUB 
4120 
4130 
4140 
4141 
4142 
4150 
4151 
4152 
4153 
4160 
4161 
4162 
4170 
4171 
4172 
4180 
4181 
4182 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 


"0"; INVERSE 0;":FIN"; 


GO SUB 9997: REM LEE UNA TECLA 


IF I=CODE "U" THEN CLS : GO TO 9994: REM FIN 
IF I=CODE "Q" THEN GO TO 4000 

IF I=CODE "MW" THEN GO TO 5000 

IF I=CODE "E" THEN GO TO 6000 

IF I=CODE "R" THEN GO TO 7000 

IF I=CODE "T" THEN GO TO 8000 

IF I=CODE "Y" THEN GO TO 9000 

GO TO 3040 

REM 

IAN EEES 


REM * CONTROL DE NAVEGACION x*x 

REM AMOS SOS SiS OlEa lalalala lalalalalolojajok 

INPUT “CURSO (1-9): ";C1: IF C1<1 OR C1>9 THEN GO TO 4010 

INPUT “VELOCIDAD (0-8): “;W1; IF W1<0O OR W1>8 THEN GO TO 4030 

IF C1=9 THEN LET C1i=1 

IF (Wi<=.2) OR (F(1)>=0) THEN GO TO 4100 

GO SUB 9947: PRINT "MOTORES DANADOS. ";$0;AT 0,0; "VELOCIDAD MAXIMA=0.2": GO 


9950 

GO TO 4000 

LET N=INT (.5+8*xW1): IF El>=N THEN GO TO 4150 

GO SUB 9947: PRINT FLASH 1;"ENERGIA INSUFICIENTE PARA MANIOBRAR": GO 
9950 3 

IF (F(7)<0) OR (SO<N-E1) THEN GO TO 3000 

GO SUB 9947: PRINT SO; "UNIDADES DISPONIBLES PARA ESCUDO": GO SUB 9950 
GO TO 3000 


REM alla lala lafV lalalala lolalok 


REM * COMIENZA EL MOVIMIENTO * 
REM aaa lO lO lO lalalala lalalala lalolOjolojÓK 


REM SISSI SOS lSlO SO lSlO OO lSjolOlOlojolOlojoK 
REM * PRIMERO ATACA EL ENEMIGO x* 
REM ASS ISSO lO OSOS Olof lOjolOjolOlojolOK 


GO SUB 9915 

REM 

REM SISSI lO lOlojojolololOjOjOlOIOjoK 

REM * REPARACIONES EN MARCHA * 

REM aaa ISSO ISO lalOlolOlOJOJÓK 

REM 

GO SUB 9932 

LET Z1=S1: LET Z2=S2 

LET Q$(INT (S1),1+4*(INT (S2)-1))=" ” 

LET Q$(INT (S1),2+4*x(INT (S2)-1))=" ” 

LET Q$(INT (S1),3+4*(INT (S2)-1))=" ” 

LET Xi=A(INT (C1))+B(INT (C1))*(C1-INT (C1)) 

LET X2=C(INT (C1))+D(INT (C1))*(C1-INT (C1)) 

LET I=1 

LET Si=S1+X1: LET S2=S2+X2 

IF (S1<1) OR (S1>=9) OR (S2<1) OR (S2>=9) THEN GO TO 4400 
IF Q$(INT (S1),2+4*(INT (S2)-1))=" " THEN GO TO 4340 

LET Si=S1-X1: LET S2=S2-X2 

GO SUB 9947: PRINT FLASH 1;" PARADA AUTOMATICA DE MOTORES DEBIDO A MALA 


NAVEGACION ae 


4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 


GO TO 4350 

LET I=I+1: IF N>=I THEN GO TO 4270 

LET Q$(INT (S1),1+4*(INT (S2)-1))="<" 

LET Q$(INT (S1),2+4*(INT (S2)-1))="=" 

LET Q$(INT (S1),3+4*(INT (S2)-1))=">" 

GO SUB 4900 

LET Si=INT (.5+S1): LET S2=INT (.5+S52): GO TO 2500 
LET Z1=(8*Q1)+Z1+N*X1 

LET Z22=(8*Q2)+22+N*X2 

LET Q1=INT (Z1/8): LET Si=INT (Z1-8*Q1) 
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4430 LET Q2=INT (22/8): LET S2=INT (22-8*Q2) 

4440 IF Si=0 THEN LET S1=8: LET Q1=Q1-1 

4450 IF S2=0 THEN LET S2=8: LET Q2=Q2-1 

4460 IF Q1<1 THEN LET Q1=1: GO SUB 4800 

4470 IF Q2<1 THEN LET Q2=1: GO SUB 4800 

4480 IF Q1>8 THEN LET Q1=8: GO SUB 4800 

4490 IF Q2>8 THEN LET Q2=8: GO SUB 4800 

4500 GO SUB 4900 

4510 LET S1=INT (.5+S1): LET S2=INT (.5+S52): GO TO 2000 

4800 GO SUB 9947: PRINT FLASH 1;"DETENCION AUTOMATICA DE MOTORES";t0;AT 0,0; FL 
ASH 0; "PERMISO DENEGADO PARA ABANDONAR LA GALAXIA" 

4830 RETURN 

4900 LET El=E1-N-10 

4910 IF El>=0 THEN GO TO 4960 

4920 GO SUB 9947: PRINT "ENERGIA TRANSFERIDA DESDE EL ES-CUDO PARA COMPLETAR LA 
MANIOBRA" 

4940 LET SO=S0+E1: IF SO<O THEN LET SO=0 

4950 LET El=0 


4980 LET TTi=.1X*INT (10*W1): IF LET TPi=1: LET T=T+TT1 
4970 IF T>TO+T9 THEN GO TO 9994 

4980 RETURN 

4981 REM 


4982 REM aMalalalOlalld SISSI lalalala jo jalalolojok 

5000 REM * DISPARO DE CANONES LASER x*x 

5001 REM aaaSSlOla SS ISlSlM ISO lOlolVlS O lSlOloloJOK 

5002 REM 

5010 IF K3>0 THEN GO TO 5040 

5020 GO SUB 9947: PRINT : PRINT "NO HAY NAVES ENEMIGAS A LA VISTA": GO SUB 9950 
5030 GO TO 3000 

5040 IF F(4)>=0 THEN GO TO 5070 

5050 GO SUB 9947: PRINT FLASH 1;"EL CANON LASER NO FUNCIONA” 

5060 GO TO 3000 

5070 GO SUB 9947: PRINT "CANON LASER APUNTANDO A OBJETIVO" 

5090 PRINT INVERSE 1;"ENERGIA DISPONIBLE=";E1 

5100 IF F(8)>=0 THEN GO TO 5120 

5110 GO TO 9947: PRINT "MAYOR PRECISION POR FALLO COMPUTADOR" 

5120 INPUT "ENERGIA DISPARO: ";C1: IF C1<0O OR C1>El1 THEN GO TO 5120 
5140 LET El=E1-C1 

5150 GO SUB 9915 

5160 IF F(7)>=0 THEN GO TO 5180 

5170 LET C1i=C1*RND 

5180 LET C1=INT (C1/K3) 

5190 FOR I=1 TO 3 

5200 IF K(1,3)=0 THEN GO TO 5260 

5210 LET H=INT ((2*RND)*C1/SQR (((K(I,1)-S1)*(K(I, 1)-S1))+((K(I,2)-S2)*(K(I,2)-8 
2)))) 

5220 IF H>=.15*K(1,3) THEN GO TO 5260 

5230 LET K(1,3)=K(1,3)-H 

5240 GO SUB 9947: PRINT H;" UNIDADES PARA ENEMIGO EN ";K(1,1);",";K(I,2) 
5250 IF K(1,3)<0 THEN LET XA=K(1,1): LET XB=K(1,2): GO SUB 9890 

5251 REM 

5252 REM edMSSS ISSO lalalala lok 

8000 REM * LANZAMIENTO DE UN TORPEDO x* 

8001 REM odRSIOlTSSMSISlSlSSS Olaf lalalolololOIOIOIoJOK 

6002 REM 

6010 GO SUB 9947 

6020 IF F(5)<0 THEN PRINT "LOS TUBOS DE TORPEDOS NO FUNCIONAN": GO TO 3000 
6030 IF Pi<=0 THEN PRINT "TORPEDOS AGOTADOS": GO TO 3000 

6040 INPUT "CURSO TORPEDO (1-9) ";N1: IF Ni<1i OR N1>9 THEN GO TO 68040 
6060 IF Ni=9 THEN LET Ni=1 

6070 LET Xi1i=A(INT (N1))+B(INT (N1))*(N1-INT (N1)) 

6080 LET X2=C(INT (N1))+D(INT (N1))*(N1-INT (N1)) 

6090 LET El=E1-2: LET Pi=P1-1: LET XA=S1: LET XB=S2 

6100 PRINT AT 21,0;"CURSO DE TORPEDO: "; 

6110 LET XA=XA+X1: LET XB=XB+X2 

6120 IF (XA>=9) OR (XB>=9) OR (XA<1) OR (XB<1) THEN GO TO 6300 

6130 PRINT AT 21,19;XA;",";XB 


6140 
6150 
61680 
8170 
68180 
6190 
6200 
6210 
6220 
6230 
6240 
6250 
6280 
6290 
6300 
250 

6310 
6320 
6330 
6331 
6332 
7000 
7001 
7002 
7010 
7020 
7025 


LET I$=Q$(INT (XA+.5),2+4*INT (XB-.5)) 


IF 
IF 
IF 
GO 
LET 


GO 


IF 
LET 


PRINT AT 3+XH,XK;"": 


REM 


AN ES 


REM * TRASPASO DE ENERGIA AL ESCUDO PROTECTOR * 
ES 


REM 
GO 


I$=" " THEN GO TO 6310' 
I$="." THEN GO SUB 9890: 
I$="x" THEN GO TO 6290 


GO TO 6250 


SUB 9947: PRINT INVERSE 1;"BASE ESTELAR DESTRUIDA, ESTUPIDO” 
B3=B3-1: LET B9=B9-1: LET DO=0 
LET QS(INT (XA), 1+4*INT (XB-1))=" " 
LET Q$(INT (XA),2+4*INT (XB-1))=" " 
LET QS(INT (XA),3+4*INT (XB-1))=" " 
LET G(Q1,Q2)=S3+10*(B3+10x*K3) 


SUB 2020 
SUB 9915 
TO 2500 

SUB 9947: 


XH<>0 THEN PRINT AT 3+XH, XK: 
XH=INT (XA+.5): LET XK=2+4x*xINT (XB-.5) 
BEEP 1,15: GO TO 6110 


SUB 9947 


IF F(7)>=0 THEN GO TO 7030 


GO 


TO 3000 
INPUT “ENERGIA AL ESCUDO";N1: 


7030 
7050 
7060 
7070 
7080 
7081 
7082 
8000 
8001 
8002 
8005 
8010 
8020 
8030 
8040 
8050 
8110 
8120 
8130 
8140 
8150 
8160 

SUB 
8180 


LET 
LET 
GO 

PRI 
REM 
REM 
REM 
REM 
REM 
FOR 
GO 


IF F(6)<0 THEN PRINT "EL CONTROL DE DANOS NO FUNCIONA”: 
INVERSE 1;" CONTROL DE DANOS": 
PRINT AT 1,0;: GO SUB 8900: PRINT D$;F(1) 


PRINT AT 0,0; 


NEX 
IF 
LET 
NEX 
IF 


GO SUB 9947: PRINT "TECNICOS DISPUESTOS A REPARAR NAVE" 


SUB 9947: PRINT : 


E1=E1+S0-N1 
SO=N1 


SUB 9947: PRINT : PRINT "ESCUDO A ";SO;" SEGUN SUS ORDENES" 
";AT 19,26;50: GO SUB 9950: GO TO 3000 


NT AT 19,26;" 


ES 


* INFORME DE DANOS * 
ES 


I=1 TO 10: PRINT AT 1,0; 
SUB 9947 


T 1: GO SUB 9950 
DO=0 THEN GO TO 8300 


D3=0: FOR I=1 TO 8: IF F(I)<0 THEN LET D3=D3+.1 
T 1: IF D3>1 THEN LET D3=1 


D3=0 THEN GO TO 8300 


PRINT "UNA ESTRELLA ABSORBIO EL TORPEDO": 


TINTE 


GO TO 6250 
SUB 9947: PRINT TNVERSE 1;"EL TORPEDO HA FALLADO EL OBJETIVO": GO TO € 


PRINT FLASH 1;"EL ESCUDO PROTECTOR NO FUNCIONA": GO 


IF Ni<O OR N1>E1+S0 THEN GO TO 7030 


: NEXT 1 


GO TO 8110 


FOR I=1 TO 8 


PRINT *0;AT 0,0;"TIEMPO DE REPARACION ESTIMADO: ";D3;"FECHAS ESTELARES": GO 


995 
GQ 


10) 
SUB 9947: 


AND I$<>"NO" THEN GO TO 8180 

8190 IF I$="NO" THEN GO TO 2500 
8210 FOR I=1 TO 8: LET F(1)=0: NEXT I 
8230 LET T=T+D3+.1: GO TO 8030 


8320 FOR I=0 TO 10: PRINT AT 1,0;” 


GO SUB 2020: GO TO 2500 


8900 
8910 
8920 
8930 
8940 
8950 
8960 
8970 
8980 


GO 

LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 


TO 8900+10x*I 


D$="MOTORES............ eE 
D$="PANTALLA CORTO AL...”: 


D$="PANTALLA LARGO AL...” 
D$="CANONES LASER....... > 


D$="TUBOS DE TORPEDOS... 
D$="CONTROL DE DANOS.... 
D$="CONTROL DE ESCUDO... 
D$="COMPUTADORA......... 


RETURN 
RETURN 
RETURN 
RETURN 
RETURN 


: RETURN 
: RETURN 
: RETURN 


INPUT “AUTORIZA USTED LAS REPARACIONES S/N"; I$: 


I 


F I$<>"SI" 


PROGRAMAS 


e 151 5 11 


9000 REM COMPUTADORA DE A BORDO 

9010 GO SUB 9947 

9020 IF F(8)<0 THEN GO TO 9150 

9030: PRINT: "+: 25: COMPUTADOR ACTIVO. <5::0.3:2: 7 
9050 PRINT $O;AT 0,0; INVERSE 1;"Q"; INVERSE 0;":GALAXIA "; INVERSE 1;"W"; INVER 
SE 0;":SITUACION "; INVERSE 1;"E"; INVERSE 0;"”": TORPEDOS"; INVERSE 1;"R"; INVERSE 
O; ": BASE "; INVERSE 1;"T"; INVERSE 0; ":DIR-DIST"; 

9060 GO SUB 9997: REM LEE UNA TECLA 

9070 IF I=CODE "Q" THEN GO TO 9200 

9080 IF I=CODE "W" THEN GO TO 9400 

9090 IF I=CODE "E" THEN GO TO 9500 

9100 IF I=CODE "R" THEN GO TO 9700 

9110 IF I=CODE "T" THEN GO TO 9800 

9120 GO TO 9060 

9150 PRINT FLASH 1;"LA COMPUTADORA NO FUNCIONA": GO TO 3000 

9151 REM 

9152 REM dsd SONO lO OOO jOlOIOjOOHOK 

9200 REM * MAPA DE LA GALAXIA * 

9201 REM dsRadSSSS OSOS lO lOlSlOlOjOlOlOlOK 


9202 REM 

9205 FOR I=1 TO 9: PRINT AT I1,0;" ": NEXT 1 

9210 PRINT AT 0,0; INVERSE 1;" MAPA ACUMULADO DE LA GALAXIA  " 

9220 PRINT AT 1,0;” "; INVERSE 1;"1"; INVERSE 0;"  "; INVERSE 1;"2"; INVERSE O 


5" "; INVERSE 1;"3"; INVERSE O0;"  "; INVERSE 1;"4"; INVERSE 0;"  "; INVERSE 1;" 
5"; INVERSE 0;"  "; INVERSE 1;"6"; INVERSE 0;"  "; INVERSE 1;"7"; INVERSE 0;"  " 
; INVERSE 1;"8" 

A e 

9240 FOR I=1 TO 8: PRINT AT 2+1,0; INVERSE 1;1; 

9250 FOR J=1 TO 8: PRINT (" "+STR$ (Z(1+1,J3+1)))(2+(Z(1+1,J+1)>9)+(Z(1+1,J+1)> 
99) TO 4+(Z(1+1,J+1)>9)+(Z(1+1,J+1)>99));: NEXT J: NEXT I 

9260 PRINT AT 12,0;"PRESIONE UNA TECLA PARA SEGUIR" 


9270 LET A$=INKEY$: IF A$="" THEN GO TO 9270 
9330 CLS : GO SUB 2020: GO TO 2500 
9331 REM 


9332 REM AdSSOOOlOlOOlOlOOK 
9400 REM * SITUACION * 
9401 REM AaAsMoaiOSiOO loo look 


9402 REM 
9410 PRINT AT 0,0;: FOR I=1 TO 10: PRINT ” “¡AT 
0,0; INVERSE 1;” INFORME DE SITUACION eS 


9420 PRINT : PRINT ;"QUEDAN ";K9;" NAVES ENEMIGAS" 
9430 PRINT "QUEDAN ";TO+T9-T;" FECHAS ESTELARES" 

9440 PRINT "HAY ";B9;" BASES ESTELARES EN LA GALAXIA” 
9445 PRINT AT 10,0; INVERSE 1;" PULSE UNA TECLA PARA CONTINUAR ": IF INKEY$="" 
THEN GO TO 9445 

9450 CLS : GO SUB 2020: GO SUB 2500 

9451 REM 

9452 REM dodddSSSMS SMS ISSO lll SlSllSlOISISIOIOJOJOL: 

9500 REM * CALCULO DE DIRECCION PARA TORPEDOS x* 

9501 REM aalalalS ISSN IS lSlalalalalalalalalalalala jajja alalalala lala lolDIOJOK 

9502 REM 

9505 GO SUB 9947 

9510 IF K3=0 THEN PRINT : PRINT "NO HAY NAVES ENEMIGAS AQUI": GO SUB 9950: GO 
TO 3000 

9512 FOR I=1 TO 3 

9515 IF K(1,3)=0 THEN GO TO 9525 

9520 LET Ni=K(1,1): LET N2=K(1,2): GO SUB 9530 

9525 NEXT I: GO TO 3000 

9526 REM 

9527 REM aaa SSS OSMOSIS lll 

9528 REM * RUTINA DE CALCULO DE DIRECCION/DISTANCIA *x 

9529 REM aaa SSSSMSISISISISlETT TSE RSS SSI 

9530 REM 

9535 PRINT "DIRECCION DISTANCIA" 

9540 LET X1=N1: LET X2=N2 

9550 LET A=S1-X1: LET X=X2-S2 

9560 IF X<0O THEN GO TO 9610 


9562 
9570 
9572 
9580 
9590 
9595 
9600 
9610 
9615 
9620 
9625 
9630 
9640 
9650 
98660 
9670 
9671 
9672 
9700 
9701 
9702 
9710 
9720 
9730 
9790 
9791 
9792 
9800 
9801 
9802 
9810 
9820 
9830 
9870 
9880 
9881 
9882 
9890 
9891 
9892 
9893 
9894 
9896 
9898 
9899 
9900 
9901 
9902 
9903 
9904 
9905 
9910 
9911 
9912 
9915 
9916 
9917 
9918 
9919 
9920 
9921 
9922 
9923 


IF A<O THEN GO TO 9640 

IF X>0 THEN GO TO 9580 

IF A=0 THEN GO TO 9620 

LET C1=1 

IF ABS (A)>ABS (X) THEN LET C1=C1+2-ABS (X/A): GO TO 9670 
LET Ci=C1+ABS (A/X) 

GO TO 9670 

IF A>0 THEN GO TO 9630 

IF X=0 THEN GO TO 9640 

LET Ci=5: IF (A=0) AND (X=0) THEN GO TO 9670 

GO TO 9590 

LET C1=3: GO TO 9850 

LET C1=7? 

IF ABS (A)<ABS (X) THEN LET C1=C1+2-ABS (A/X): GO TO 9670 
LET C1=C1+ABS (X/A) 

PRINT C1,SQR (X*X+A*A): GO SUB 9950: RETURN 

REM 

IAN 

REM * CALCULO DE DIRECCION PARA BASES x* 
IAN IS 

REM 

GO SUB 9947 

IF B3=0 THEN GO TO 9790 

LET Ni=1(1,1): LET N2=1(1,2): (GO SUB 9530: GO TO 3000 
PRINT "NO HAY BASES ESTELARES AQUI": GO SUB 9950: GO TO 3000 
REM 

IN SS 

REM * CALCULO DE UNA DIRECCION CUALQUIERA * 

REM aSSSlS SMS lSO Ol lSldlO OOO jolololO OK 

REM 

INPUT "COORDENADA X ";X1: IF X1<1 OK x1>8 THEN GO TO 9810 
INPUT "COORDENADA Y ";X2: IF X2<1 OR X2>8 THEN GO TO 9820 
LET Ni=X1: LET N2=X2: LET A=Q1-X1: LET X=X2-Q2 


GO SUB 9947: PRINT "DIRECCION DISTANCIA” 
LET I=1: GO SUB 9560: GO SUB 9950: GO TO 3000 
REM 

TS 


REM * NAVE ENEMIGA DESTRUIDA * 
TES 


FOR I=-10 TO O: BEEP .1,1: NEXT I 

GO SUB 9947: PRINT : PRINT "NAVE ENEMIGA DESTRUIDA" 
LET K3=K3-1: LET K9=K9-1: IF K9=0 THEN GO TO 9910 
FOR L=1 TO 3: IF KA<>K(L,1) THEN GO TO 9900 


IF KB=K(L,2) THEN GO TO 9901 

NEXT L 

LET K(L,3)=0 

LET QS(INT (XA+.5),1+4*INT (XB-.5))=" ” 

LET Q$(INT (XA+.5),2+4*INT (XB-.5))=" " ; 

LET Q$(INT (XA+.5),3+4*INT (XB-.5))=" ": LET G(Q1,Q2)=53+10x*(B3+10x*K3) 
GO SUB 2020: RETURN 


CLS : PRINT "ENHORABUENA, CAPITAN! LA ULTIMA NAVE ENEMIGA" 
PRINT "HA SIDO DESTRUIDA":  PRINT 

PRINT "SU EFICIENCIA ES IGUAL A"; INT (1000*K7/(T-TO)): STOP 
REM *x*x* ATAQUE ENEMIGO »*xx 

IF K3=0 THEN. RETURN 

IF DO=0 THEN GO TO 9919 

GO SUB 9947: PRINT "LA BASE PROTEGE LA NAVE AVENTURA": RETURN 
FOR L=1 TO 3: IF K(L,3)=0 THEN GO TO 9931 

LET H=SQR (((K(L, 1)-S1)x(K(L, 1)-S1))+((K(L, 2)-S2)*(K(L, 2)-S2))) 
LET H=INT ((2+RND)*K(L,3)/H) 

IF H=0 THEN GO TO 9931 ' 

LET SO=S0-H: GO SUB 9947: PRINT H;" UNIDADES ALCANZAN AL AVENTURA DESDE E 


L SECTOR ";K(L,1);",";K(L, 2) 


9925 
9926 
9927 


IF SO<O THEN CLS : PRINT "EL AVENTURA HA SIDO DESTRUIDO": GO TO 9994 
PRINT *0;AT 0,0;" ESCUDO DISMINUYE A ";SO : 
TF (H<20) -OR (.02>=H/S0) OR (RND>.5) THEN GO TO 9931 


a PROGRAMAS 


LET I=INT (1+RND*8): LET F(1)=F(1)-(H/SO)-.5*RND 
9929 BEEP .5,-10: BEEP .5,-15: GO SUB 9947: PRINT "CONTROL DE DANOS INFORMA: " 
9930 GO SUB 8900: PRINT *0;AT 0,0;D$; "DANADO” 

9931 GO SUB 9950: NEXT L: RETURN 

9932 REM *xx* REPARACIONES EN MARCHA *xx 

9933 LET Di=14: LET D6=W1: IF D6>1 THEN LET D6=1 

9934 FOR I=1 TO 8: IF F(I)=0 THEN GO TO 9939 

9935 LET F(1)=F(1)+D6: IF F(I)<0 THEN GO TO 9939 

9936 IF F(1)>0 THEN LET F(1)=0 

9937 GO SUB 9947: PRINT *$0;AT 0,0;: GO SUB 8900 

9938 PRINT D$;"REPARADO": GO SUB 9950 

9939 NEXT 1 

9940 IF RND>.1 THEN RETURN 

9941 LET I=1+INT (RND*8) 

9942 LET F(1)=F(1)-. 1-RNDx5 

9943 GO SUB 8900 

9944 GO SUB 9947: PRINT "CONTROL DE DATOS INFORMA: " 

9945 PRINT *$0;AT 0,0;D$;"DANADO" 

9946 RETURN 

9947 REM x*x*x* BORRA ZONA DE INFORMACION xk 

9948 PRINT AT 20,0;" "$0; AT 0,0;” 


Ms 
, 


9949 PRINT AT 20,0;: RETURN 

9950 REM *x*x* RETARDO x*xkxk 

9951 FOR I=1 TO 40: LET J=2.2*I: NEXT I: RETURN 

9994 PRINT "ES LA FECHA ESTELAR ";T 

9995 PRINT "QUEDAN ";K9;" NAVES ENEMIGAS EN LA GALAXIA AL FINAL DE SU MISION. " 
9996 PRINT "LA FEDERACION SERA CONQUISTADA. ": STOP 

9997 LET A$=INKEY$: IF A$="" THEN GO TO 9997 

LET I=CODE (A$): RETURN 


Este programa está pensado para que El objetivo del juego es destruir a todos 
funcione en el SPECTRUM, pero más ade- los invasores de la galaxia que planean 
lante aparecerá la versión para IBM y hacerse con el control de la federación. 
AMSTRAD. 


s 


[A Fig. 2. Informe de situación en la galaxia. Fig. 3. Mapa acumulado de la galaxia. 


Tú eres el capitán de la nave aventura. 
Dicha nave está dotada de motores ter- 
monucleares, de torpedos galácticos y 
de rayos láser en cantidad suficiente 
como para terminar la misión. En caso de 
que necesites más energía o más torpe- 
dos, puedes repostar en las bases que 
hay en la galaxia. 


Tiene varios tipos de pantalla: 


— La de corto alcance. Te dice exac- 
tamente dónde estás, cuántas estrellas y 
cuántos enemigos hay. 

— la de largo alcance. Te muestra, 
mediante números, lo mismo que la de 
corto alcance, pero de más sectores. 

— Mapa acumulado de la galaxia. Se- 
gún te vas moviendo por la galaxia, el or- 
denador va almacenando toda la infor- 


ORGAZ 
009- + OM 


[A Fig. 4. Control de daños de la nave. 


Fig. 5. Fin de la aventura. 


mación que va apareciendo en la pan- 
talla de largo alcance. 


Programa: Integrales para 
AMSTRAD por el método de 
Sympson 


Este programa, muy parecido al que ya 
apareció en versión para IBM y compati- 
bles, nos va a permitir calcular el valor de 
cualquier integral definida entre dos lími- 
tes por el método de Sympson. 


rn » 


Si quieres cambiar la ecuacion pulsa ($) si no pulsa (N) 


No hace falta explicar nada sobre el 
programa ya que éste es autoexplicati- 
vo y muy sencillo de usar. 


4 
pe tt INTEGRALES. DEF INIDA SAHARA nn nR ene nannR nan nennDA: 
Si quieres cambiar la ecuacion pulsa (5) si no pulsa (N) 


SÍ 


Nunero de partes=10 


*Divisiones: 0 


AREA: 148,459709 


QUIERES CONTINUAR (S/N)? 


Fig. 7. Resultados del cálculo. 


Bl PROGRAMAS 


10 REM FRXAAAAARAAA AAA AAA 
20 REM xxx INTEGRALES SYMPSON. —*XxXx 
30 REM x*xx*x Un programa realizado xxx 


40 REM xxx Por XXkxk 
50 REM XXX Carlos A. Maria Morin *xXxX 
60 REM xxx XXx 
70 REM xxx (C> Ediciones es 


80 REM xxx Siglo Cultural 1987 xxx 
II ES 

100 REM 

IA IIS 
120 REM *xx*xx PRESENTACION E INICIALIZACION x*xxx 
EI IIS 
140 REM 
150 MODE O 
160 PAPER 0 
170 PEN 2 
180 BORDER 0 
190 CLS 
200 LOCATE 1,13 

210 PRINT"INTEGRALES” 

220 FOR ret=1 TO 3000 

230 NEXT 

240 MODE 2 

250 PEN 5 

260 KEY 156,CHR$(13>+"goto 330'+CHR$S (13) 

270 KEY DEF 15,0,48,156 

280 REM 

AI ES 

300 REM adoooiokk PROGRAMA PRINCIPAL adoioloVoK 

310 REM ASIOIORSOOGIOOOOOOOOIOOIOOjOjSISlSldlSldlOIOIOIOIOJOJOK 

320 REM 

330 CLS 

340 LOCATE 1,1 

350 PRINT'daidid OOO OOOIGIOOIOGIOIOIOIOIOIOJSjOjOjGIOIdolOjokok INTEGRALES DEF IN I DA SAG OO lOlOlOIOIOIOOJOJOJOaJok 
IGOIOIOIOIOOOOK"” 

360 GOSUB 1050: 'DIBUJA SIMBOLO DE LA INTEGRAL 

370 LOCATE 10,2 

380 PRINT”b=" 

390 LOCATE 6,5 

400 PRINT"a="” 

410 TAG 

420 MOVE 120,355 

430 PRINT"Si quieres cambiar la ecuacion pulsa (S) sí no pulsa (N>”; 

440 TAGOFF 

450 w$=INKEYS 

460 IF wS$="S'” OR w$="s'. THEN GOTO 920 

470 IF wS="N” OR wS="n” THEN 490 

480 GOTO 450 

490 LOCATE 12,2 

500 INPUT ””,1ls 

510 LOCATE 8,5 

520. INPUT "”., 11 

530 LOCATE 5,7 

540 PRINT"Numero de partes="”; 

550 INPUT *” pa 

560 IF pa<1 THEN 530 

570 REM 

580 REM aMSSIASSSlASIA OSOS O OOOO OK 

590 REM ** SE INICIA EL PROCESO POR PARTES *XX*X 

600 REM asSRalRSlRSIASIdSlSSjSldlS lO lEJS SIS OOOO ORTO OK 

610 REM 

620 dx=(1ls-1i1>/2/pa 

630 to=0:x=1i:GOSUB 820 

640 to=to+y: x=x+dx: GOSUB 820 

650 to=yx4+to: x=x+dx: GOSUB 820 

660 to=y+to: pa=pa-1 

670 LOCATE 5,12 


Y 


680 PRINT"*xDivisiones:”;pa 

690 IF pa<>0 GOTO 640 

700 ka=toxdx/3 

710 REM : 

CAMI III 
730 REM xXxoxkxxXk SE VISUALIZA RESULTADO AxodooKkxk 
740 REM dRsRSS SOS SIOSlOSSlO SOS SlO SISSI lSlSlolElollOjOJK 
7350 REM 

760 FOR k=1 TO 300 STEP 10 

770 SOUND 1,k,1,15 

780 NEXT 

790 LOCATE 5,24 

800 PRINT"AREA=";ka;TAB(30)>;'”QUIERES CONTINUAR (S/N)>?” 
810 GOTO 890 

820 y=SQR(12”2-(x-12)”2) 

830 RETURN 

840 REM 

AI IS 
860 REM x*xx*xx* EDITA ECUACION Y PROCESA DATO xxx 
870 REM A3SRSSSS SSA all lSlOjolRlojoJAK 
880 REM 

890 WS=UPPERS(INKEYS)>: IF WS="S” THEN 330 

900 IF W$="N"” THEN CLS: DELETE -1160 

910 GOTO 890 

920 TAG 

930 MOVE 120,355 

940 PRINT” 

950 TAGOFF 

960 LOCATE 32,25 

970 PRINT"PULSA  [(SHIFT+0]”; 

980 LOCATE 10,4 

990 EDIT 820 

1000 REM 

1010 REM SSA ISSO SlTSlOlllOlOJOjOK 
1020 REM ARMRSRRSSNSOMOOONK DIBUJO AMRRRRSlSIOlOSlSlSIOIOIOK: 
II IES 
1040 REM 

1050 ORIGIN 70,351 

1060 DEG 

1070 MOVE 0,19 

1080 FOR an=0 TO -90 STEP -20 

1090 DRAW 19xSIN(an),19xC0S(an>) 

1100 NEXT 

1110 ORIGIN 31,352: MOVE 0,-19 

1120 FOR an=0 TO -90 STEP -20 

1130 DRAW -19*xSIN(an)>,-19xC0S(an) 

1140 NEXT 

1150 ORIGIN 0,0 

1160 RETURN 


ARA asegurar la 
corrección del pro- 
ceso hay que esta- 
blecer lo que se lla- 
ma un «juego de en- 
sayo»: conjunto de 
datos de entrada que 
someten al programa 
a todas las situaciones previstas, para 
comprobar la bondad del proceso reali- 
zado, en todos los casos posibles. 


Preparación de los datos 


A. Entrada de los datos 


En principio la realización de estos jue- 
gos no debería ser complicada; sin em- 
bargo, hay casos en que la entrada de 
un proceso es la salida de otro, sin eta- 
pas intermedias y de tal modo que hay 
que modificar el segundo programa para 
que acepte los datos con el formato o el 
soporte en que nos es posible preparar- 
los: en estos casos hay que extremar los 
cuidados, para no modificar las condi- 
ciones en que posteriormente trabajará 
el programa, lo que, consecuentemente, 
invalidaría la prueba. 


B. Contenido del juego de ensayo 


Hay que examinar el modo en que rea- 
liza el programa su proceso y la disposi- 
ción habitual de los datos de entrada 
para establecer el contenido del juego 
de ensayo: en efecto, si el conjunto de 
datos a procesar adopta una disposición 
fija y el proceso es uniforme, una mues- 
tra de los datos previstos es suficiente 
para comprobar que el tratamiento se 
realiza correctamente. En ocasiones, se 
prevé que pueda surgir algún tipo de di- 
ficultad con el volumen de información: 
en ese caso habrá que preparar un jue- 
go de ensayo completo. 

Por otro lado, han de examinarse todas 
las circunstancias normales de proceso 


TECNICAS DE ANALISIS 


COMPROBACION DE PROGRAMAS (11) 


para prever que en cada juego aparez- 
ca al menos un caso de cada tipo bási- 
co. Además habrá de incluirse en cada 
batería de datos al menos una aparición 
de cada caso atípico. 

Suele ser útil incluir, por último, algunos 
casos adicionales aleatorios, especial- 
mente si el volumen de datos preparado 
de acuerdo con los criterios anteriores no 
es muy grande. Para realizar la genera- 
ción de los números aleatorios con los 
que se van a construir los juegos de en- 
sayo, se pueden utilizar diversos méto- 
dos: combinar de diferentes maneras los 
números de la sucesión de Fibonacci 
1,1,2,3,5,8,13,21,34,55,89,144,... (obteni- 
dos a partir de la definición 
F(x+2) = F(x+ 1)+F009 y de los valores ini- 
ciales x0=1 y x1=1), crear una sucesión 
de Von Neumann (tomando los números 
centrales de la sucesión de los cuadra- 
dos obtenidos a partir de una «simiente» 
elegida al azar: por ejemplo, para tener 
números aleatorios de tres cifras se parte 
de un número cualquiera, 378, y se va to- 
mando sucesivamente 288 —el cuadra- 
do de 378 es 142.884—, 583 —el cuadra- 
do de 142.884 es 20.415.839.556— etc.), 
utilizar los sucesivos restos de las divisio- 
nes de dos números (es clásico el proce- 
dimiento de tomar dos números cuales- 
quiera grandes, X e Y, e ir haciendo 
S(X+1)=resto(X*S(X/Y)), o cualquiera de 
los procedimientos que ofrecen los len- 
guajes de programación. 

Debe tenerse en cuenta, por fin, el co- 
mentario hecho sobre las dificultades 
que, en ocasiones, surgen con el volu- 
men de información a procesar, para 
producir un juego de datos de ensayo su- 
ficientemente grande, si este aspecto es 
de interés. 


C. Generación de los datos de ensayo 


El procedimiento más usual de obtener 
información sobre el contenido que de- 
ben tener los datos de prueba de un pro- 


grama suele ser el simple examen de los 
datos de entrada previstos; en efecto, es 
usual limitar dicho conjunto de datos de 
ensayo a una reproducción de todos los 
posibles casos que se darán en la ejecu- 
ción normal del programa. 


Aunque en multitud de casos este pro- 
cedimiento es suficiente, hay ocasiones 
en que la complejidad de los datos o de 
los procesos no asegura la comproba- 
ción de todos los casos posibles por este 
método; se suelen elaborar los datos en 
ese caso a partir de las tablas de deci- 
sión que definen el proceso a realizar por 
el módulo correspondiente. 


Hay que reseñar, por último, que exis- 
ten programas facilitados por las empre- 
sas de ordenadores o fabricantes de soft- 
ware, para la generación automática de 
juegos de ensayo de los programas. Es- 
tos programas generadores (usualmente 
ligados a un determinado lenguaje de 
programación) producen de un modo 
automático los datos de ensayo, a partir 
de las especificaciones que se les facili- 
ten, según el formato requerido. 


Obviamente si se dispone de un pro- 
grama de estas características y los da- 
tos a generar lo permiten, este es el pro- 
cedimiento más cómodo y más seguro 
de generar un juego de ensayo. 


. Comprobación de resultados 


Normalmente, el proceso que debe 
realizar el programa es suficientemente 
conocido y sencillo como para prever los 
resultados que se deben obtener a partir 
de los datos de entrada; en consecuen- 
cia, la comprobación de la corrección 
del proceso se limita a evaluar los resul- 
tados esperados a partir de los datos del 
juego que se propone y compararlos con 
los que realmente se obtienen de la eje- 
cución del programa. Es usual en este 
caso preparar una relación de los datos 
que forman parte del juego de ensayo, 
para anotar junto a ellos el resultado pre- 
visible y, por último, los resultados reales 
obtenidos; en la figura se incluye un di- 
seño típico de esta clase de relaciones. 

Hay ocasiones, sin embargo, en que di- 
cha evaluación manual es sumamente 
complicada: en estos casos se suele in- 
troducir alguna o algunas instrucciones 
de «seguimiento» del proceso. Con estas 
instrucciones (que imprime algún co- 
mentario o el contenido de algun cam- 
po significativo cada vez que se ejecu- 
tan; es decir, cada vez que el programa 
pasa por ese punto) se va obteniendo 
una «traza» del proceso que se está rea- 
lizando y se puede verificar la corrección 
del programa. 


COMPROBACION DE PROGRAMAS 


PROGRAMA: 
CADENA: 


'O Manejo de 


la pantalla 


N el capítulo anterior 
hemos visto cómo se 
puede escribir un tex- 
to, o el valor de una 
variable, o el resulta- 
do de una expresión, 
en la pantalla del or- 
denador. Pero, a pri- 
mera vista, la instrucción PRINT (y sus equi- 
valentes) es muy poco flexible, pues no 
permite elegir el lugar de la pantalla 
donde nos interesa que aparezca el tex- 
to. En efecto, cada instrucción PRINT es- 
cribe siempre el dato de que se trate en 
la primera línea disponible de la panta- 
lla, cualquiera que ésta sea. En este ca- 
pítulo vamos a ver cómo podemos alcan- 
zar un dominio más completo de la pan- 
talla, eligiendo a nuestra conveniencia 
el punto donde deseamos que se escri- 
ban nuestros textos y datos. 

En el lenguaje BASIC existen dos instruc- 
ciones fundamentales cuya utilización 
nos permitirá alcanzar el dominio desea- 
do. La primera instrucción es: 


CLS 


que borra completamente la pantalla, 
dejándola a nuestra disposición para 
que la llenemos con la información que 
deseemos. 

Antes de explicar la segunda instruc- 
ción vamos a ver cómo se localiza una 
posición determinada en la pantalla de 
un ordenador. 

Se considera que la pantalla está for- 
mada por un conjunto de líneas (por 
ejemplo, 25), en cada una de las cuales 
puede escribirse cierto número de ca- 
racteres (normalmente 40 u 80). Es decir, 
la pantalla puede considerarse como 
una disposición rectangular de lugares, 
o sitios, cada uno de los cuales puede 
ocuparse con un carácter o letra deter- 
minado. Supongamos que tenemos, en 
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nuestro ordenador, una pantalla de 25 lí- 
neas de 80 caracteres. Esto significa que 
el número total de caracteres (o letras) 
que caben en la pantalla es igual a 
25 x 80 = 2.000. Dicho de otro modo, en 
esa pantalla hay 2.000 lugares diferen- 
tes. 

Cada uno de estos lugares queda de- 
finido por la posición que ocupa dentro 
de la pantalla de la siguiente manera: 
daremos el número de la línea y el núme- 
ro del lugar dentro de la línea. Por ejem- 
plo: un lugar puede ser el número 20 de 
la línea 14. Decimos entonces que se en- 
cuentra en la línea 14 y en la columna 20 
y lo representamos como en la figura: 


25 lineas 


nea 1 80 columnas 


Columna 20 


Pues bien: la segunda instrucción BASIC 
de control de la pantalla tiene la siguien- 
te forma: 


LOCATE f,c 


donde f y c son dos números (f debe es- 
tar comprendido entre 1 y el número de 
líneas de la pantalla, mientras c debe es- 
tar entre 1 y el número de caracteres por 
línea o columnas) y su efecto es colocar 
el cursor en la fila f y la columna c de la 
pantalla. Esto significa lo siguiente: 


— Que, si la siguiente instrucción de 
lectura o escritura es INPUT, los caracte- 
res que escribamos en el teclado irán 


apareciendo en la pantalla a partir del 
lugar seleccionado por la instrucción LO- 
CATE. 


— Que, si la siguiente instrucción de 
lectura o escritura es PRINT, el texto o da- 
tos a escribir aparecerán a partir del lu- 
gar seleccionado por la instrucción LO- 
CATE. 


Veamos un ejemplo: 


10 CLS 
20 LOCATE 14,20 
30 PRINT "Mensaje" 


cuyo efecto es el siguiente (ver figura). 


7 Mensaje 
' 


m Definición de los campos de 
una pantalla 


Ahora sabemos cómo puede situarse 
el cursor en un punto cualquiera de la 
pantalla, con objeto de que los mensa- 
jes y valores que escribamos aparezcan 
donde nos interesa. Vamos a ver ahora 
cómo podemos planificar el manejo de 
la pantalla, para facilitar la escritura de 
los programas. 

Supongamos que queremos programar 
nuestra propia versión de un juego típico 
de guerra espacial, de los que existen 
numerosas variantes en el mercado. En 
este juego, el jugador deberá localizar y 


destruir, antes de que transcurra cierto 
tiempo, una flota de naves enemigas. La 
galaxia se divide en 64 cuadrantes, dis- 
puestos en forma de tablero de ajedrez 
de 8filas y 8 columnas. Además, cada 
cuadrante se divide también como un ta- 
blero de ajedrez en 8 por 8 sectores. 

La sala de control de nuestra nave es- 
pacial contiene los siguientes elemen- 
tos: 

— Una pantalla de radar de corto al- 
cance, que presenta una imagen del 
cuadrante en que se encuentra la nave. 

— Una pantalla de largo alcance que 
muestra la situación en los cuadrantes 
fronterizos con el nuestro en forma de ta- 
bla de datos codificados de 3 filas y 3 co- 
lumnas. 

— Un informe condensado y perma- 
nente de la situación actual, que contie- 
ne información como la fecha, condición 
de la nave (normal, alerta amarilla o aler- 
ta roja), cuadrante en que nos encontra- 
mos, sector donde se encuentra situada 
la nave dentro del cuadrante, energía 
de que se dispone, número de torpedos 
a nuestra disposición y energía del escu- 
do protector. 


Todos estos datos estarán permanente- 
mente visibles en la pantalla. Utilizándo- 
los, el jugador debe decidirse por una de 
las acciones siguientes: 


1. Navegación (trasladar la nave de 
sitio). 

2. Disparar los cañones láser contra 
uno o varios enemigos. 

3. Disparar un torpedo contra una 
nave enemiga. 

4. Cambiar la energía asignada al es- 
cudo de protección. 

5. Obtener información del control de 
daños. , 

6. Pedir información adicional a la 
computadora de a bordo. 

7. Dar por terminado el juego. 


En este tipo de juego es conveniente 
diseñar una estructura adecuada para la 
pantalla. Esta estructura podrá ser única 
o variable, según las circunstancias, pero 
en este último caso conviene que todas 
las posibilidades estén claramente defi- 
nidas para facilitar la programación y el 
paso de una a la otra. 

La figura siguiente muestra una posible 
estructura de la pantalla principal para 
nuestro ejemplo del juego espacial: 
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(3,44) 


—— (3,78) 


(9,78) 
pt (13,30) 


- (14,17) 
o 


(24,60) 


(24,6) 


Observando la figura, podemos ver 
que hemos dividido la pantalla en seis 
campos bien definidos (conocemos las 
coordenadas fila-columna de todos sus 
vértices) entre los que pueden quedar 
espacios en blanco más o menos gran- 
des. Estos campos son los siguientes: 


1. Un campo rectangular de 10 filas y 
27 columnas, donde aparecerá la panta- 
lla de radar de corto alcance, que nos 
muestra la situación en el cuadrante en 
que nos encontramos. La primera fila y la 
última del campo servirán para escribir 
dos líneas continuas que sirvan de mar- 
co a la pantalla de radar. Cada una de 
las otras ocho líneas corresponderá a un 
sector dentro del cuadrante. 


2. Uncampo formado por una sola fila 
(la 2) y una longitud de 25 columnas. 
Aquí podremos situar un título para el 
campo anterior, tal como «Pantalla de 
corto alcance». 

3. Un campo rectangular de 3 filas y 
12 columnas, donde aparecerá la panta- 
lla de radar de largo alcance, que nos 
muestra la situación en los cuadrantes 
vecinos. La información sobre el cua- 
drante en que nos encontramos estará si- 
tuada en el centro. 

4. Uncampo formado por una sola fila 
(la 13) y una longitud de 25 columnas. 
Aquí podremos situar un título para el 
campo anterior, tal como «Pantalla de 
largo alcance». 

5. Un campo rectangular de 7 filas y 
35 columnas, donde aparecerá el infor- 
me condensado de la situación de la 
nave. En este caso no necesitaremos tí- 
tulo. 

6. Uncampo formado por una sola fila 
(la 24) y una longitud de 55 columnas. 
Aquí podremos situar un recordatorio de 
las acciones que podemos realizar y de 
qué tecla de función debemos presionar 
para conseguirlo. 


En el próximo capítulo explicaremos 
cómo podemos escribir en cada campo 
la información deseada y cómo pode- 
mos conseguir que el programa sepa 
cuál de las teclas de función ha sido pre- 
sionada para realizar la acción corres- 
pondiente. 


LOGO 


Operadores 
de relación 


STE tipo de operado- 
res nos sirve para 
comparar el valor de 
dos cosas. Son los si- 
guientes: 


= (igual que) 
< (menor que) 
> (mayor que) 


Si ponemos 
ni =n2 
pl =p2 
Il =12 
o) 
:v]l =:v2 


la tortuga devuelve CIERTO si 


— n1 y n2 son números iguales 

— pl y p2 son palabras idénticas 

— |1 y 12 son la misma lista 

— vlyyv2son variables que contienen 
el mismo valor 


y FALSO en caso de ser diferentes. 
Por ejemplo: 


? ES “HOLA = * ADIOS 
FALSO 
> 


Ul > ES TCOCHE CAMON] = [COCHE CAMION] 


| CIERTO 
> ES [COCHE CAMION]= [CAMION COCHE) 
FALSO 
> ES "JOSE = “PEPE 
FALSO 
>. 


? HAZ “VARI 7 

? HAZ “VAR2 : VARI 

? ES :VARI = : VAR2 
CIERTO 


? HAZ "VAR2 : VAR2 + 2 

? ES :VAR1= : VAR2 
FALSO 

> 


En cambio, si escribimos 


ni => m2 


la tortuga devuelve CIERTO si n1 es un nú- 
mero mayor que n2 y FALSO si nl es me- 
nor o igual que n2, mientras que si pone- 
mos 


1 -< n2 


el resultado será CIERTO si n1 es un núme- 
ro menor que n2 y FALSO si nl es mayor 
O igual que n2. 


a LOGO 


Por ejemplo: 


Los dos últimos operadores (> y <) 
también se pueden utilizar para compa- 
rar el contenido de dos variables cuyos 


Los operadores lógicos no sirven para 
formar condiciones compuestas, es de- 
cir, no se aplican a números, palabras, 
listas o variables, sino a condiciones que 
se han escrito usando los operadores an- 
teriores. 

El operador 


NO cond 


devuelve CIERTO si cond es falsa y FALSO 
si cond es cierta. 
El operador 


0 cond1 cond2 


devuelve FALSO si cond1 y cond2 son fal- 
sas y CIERTO en caso contrario (sólo 
cond1 cierta, sólo cond2 cierta, ambas 
ciertas). 

Por último, el operador 


Y cond1 cond2 


devuelve CIERTO si cond1 y cond2 son 

ciertas a la vez y FALSO si cualquiera de 

las dos o ambas son falsas. 
Veamos algunos ejemplos: 


E OS — 
j DA 
" 


> ESNOL<3 
CIERTO 

> ES05>8 2=2 
CIERTO 


> ES Y 5>8 2=2 
FALSO 
> m 


Os proponemos 


1. Averigua el resultado que devolve- 
ría la tortuga al darle las siguientes con- 
diciones: 


?2ES 1000 > 4 
7E512<8 


50] 

rn 

nm 

!l 

LE 
O E E 


2 HAZ “VAR2 :VARI + 5 

? ES: VARI > :VAR2 » 
2? HAZ “VAR3 :VAR1 

2? ESO:VARI1 = :VAR2 :VAR] = :VAR3 » 
2 HAZ “VAR]1 :VAR2 + :VAR3 

? ES NO :VAR] < :VAR2 » 


El comando SI 


Una vez que ya sabemos que una de- 
terminada condición es cierta o falsa ne- 
cesitamos hacer algo con este resultado. 
Lo más normal es que mandemos a la tor- 
tuga ejecutar una serie de órdenes si esa 
condición es verdad. 

Para eso tenemos que utilizar el co- 
mando 


SI cond (lista) 


donde cond es la condición y lista es el 
conjunto de órdenes que la tortuga tiene 
que ejecutar si el resultado de la condi- 
ción anterior es CIERTO. En caso de que 
sea FALSO, estas órdenes no se realizan 
y la tortuga pasa a hacer las órdenes que 
estén detrás del comando SI. 

Puede haber casos en que nos intere- 
se hacer cosas diferentes en función de 
que una condición sea cierta o falsa. 
Para ello podemos usar el comando Sl de 
la siguiente forma: 


SI cond (lista 1) (lista2) 


de manera que si el resultado de la con- 
dición cond es CIERTO, la tortuga ejecu- 
ta las órdenes de la lista 1 y si es FALSO 
las de la lista2. 

Como es lógico, dentro de lista, lista 1 
y lista2 podemos poner cualquier co- 
mando válido, incluso otro Sl o el nombre 
de procedimientos. 

Vamos a ver la diferencia entre utilizar 
una forma u otra con un ejemplo. Supon- 
gamos que queremos escribir un proce- 


dimiento que nos diga si un número es 
menor o no que 10. 


Utilizando la segunda forma nos queda: 


¿VALOR 


? PARÁ EJEMPLO! 


SI ¿VALOR < 10 (ES "BIENJ] (ES "MAL] 
> ES (PUEDES PROBAR OTRA “EZ 1 


2 ELN 


Si ahora lo ejecutamos nos queda: 


PUEDES PROBAR OTRA VEZ 


? EJEMPLO! 12 
MAL 
PUEDES PROBAR OTRA VEZ 


Usando la primera forma, el procedi- 
miento podria ser: 


2 PARA EJEMPLOZ ¿UALOR 
> SI NO ¿VALOR < 10 [ES "NOJ 


> ES "VALE 


> ES (PUEDES PROBAR OTRA VEZ] 


> FIN 


y al ejecutarlo saldría: 


? EJEMPLO2 5 

VALE 

PUEDES PROBAR OTRA VEZ 
? EJEMPLO2 12 


NO 
VALE 
PUEDES PROBAR OTRA VEZ 


2 


Es decir, es importante darse cuenta de 
que la tortuga ejecuta las órdenes que 
vengan detrás del Sl con independencia 
del resultado de la condición y del tipo 
de forma que utilizamos. 


Utilización de Sl en 
== procedimientos recursivos 


Hemos visto que en el caso de mandar 
a la tortuga ejecutar un procedimiento 
recursivo, ésta no para de hacerlo hasta 
que pulsemos la tecla de parada. Pues 
bien, existe otra manera de decírselo 
mediante la utilización del comando SI. 
De esta forma, le diremos a la tortuga 
que deje de realizar el procedimiento 
cuando se cumpla una determinada 
condición. 

Para ello, tenemos que usar el coman- 
do 


ALTO 


dentro del procedimiento para detener- 
lo cuando se esté ejecutando. 

Por ejemplo, vamos a hacer una carre- 
ra con dos participantes. Para saber por 
dónde van pintaremos el rastro de cada 
uno en un color y daremos como gana- 
dor al primero que recorra 200 pasos 
desde la salida. 

Necesitamos dos procedimientos: uno 
que coloque a los corredores en la línea 
de salida y otro recursivo que nos sirva 
para hacer la carrera. Los procedimien- 
tos serían: 


a LOGO 


2 PÁARÁ CARRERA 
BF 
HAZ "POS1 [(-100 30] 
HAZ “POS2 (-100 -301 
HAZ "NUMPASOS1 0 
HAZ "NUMPASOS2 0 
úT 


> GD 20 


CORRER 


FIN 
?2 PARA CORRER 


> OSI 0 ¿Ni 7 Ci = 200 ¿NUMPASOS2 = 200 (SI  :¿NUMPASOS1 = 
¿¡NUMPASOS2 [ES ";¡¡EMPATE!''1 [SI :¿NUMPÁASOS1 > :¿NUMPASOS2 [ES 
[¡¡GANADOR EL CORREDOR 1''J] (ES [(¡¡GÁANADOR EL. CORREDOR 2!!J]] 
ALTO] 

SL PONPOS :POSi BL 

HAZ "PASOS AZAR 10 

PONCL 2 
> AV ¿PASOS 

HAZ "NUMPASOS1 ¿NUMPASOS1 + ¿PASOS 

Ház "POsi POS 

SL PONPOS :FOS2 BL 

Ház "PASOS AZAR 10 

PONCL 8 
> AN ¿PASOS 

HAZ "NUMPASOSZ ¿NUMPASOSZ + ¡PASOS 
> Ház "POSZ2 POS 
+ CORRER 


> FIN 


donde POS1 y POS2 son las posiciones de 
los dos corredores, NUMPASOS1 y NUMPA- 
SOS2 los pasos que ha dado cada uno y 
PASOS el número de pasos que han de 
avanzar. 

Al ejecutarlos nos podría quedar lo si- 
guiente: 


1! GANADOR EL CORREDOR 2 !! 
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PASCAL 


Control del 


. Cd . 

dinámico 

N todos los ejemplos 
con listas y árboles 
que hemos realizado 
hasta el momento se 
podían crear, en prin- 
cipio, tantos elemen- 
tos como se necesita- 
sen, sin limitación al- 


guna. 

Si, al intentar crear una nueva variable, 
no quedase ya suficiente espacio libre 
en la memoria del ordenador, se pararía 
el programa o bien se crearía una situa- 
ción de «cuelgue» del ordenador, de- 
pendiendo del compilador empleado. 

Por tanto, cuando existe la más mínima 
sospecha de que el espacio de memo- 
ria libre se puede agotar, cada vez que 
se vayan a crear nuevas variables se 
debe comprobar antes si todavía hay su- 
ficiente espacio para ellas. 

La mayoría de los compiladores tienen 
alguna función para esto, que en algu- 
nos casos se denomina MEMAVAIL (con- 
tracción de Memory Available, memoria 
disponible en inglés) y que devuelve la 
cantidad de memoria libre (en bytes o en 
algún otro tipo de medida) en el momen- 
to de la llamada: 


if MemAvail < Minimo then 
writeln ('Se acabó la memoria.'); 


La utilización del almacenamiento di- 
námico elimina la obligación de hacer 
previsiones sobre el número de datos 
que se van a procesar y permite, ade- 
más, crear con ayuda de punteros es- 
tructuras de tipo lista o árbol. Para com- 
pletar su utilidad sólo hace falta tener la 
posibilidad de, opcionalmente, dejar li- 
bre la zona de memoria de las variables 
dinámicas que no se vayan a utilizar más 
para así poder crear otras nuevas. 

Esto se consigue en PASCAL mediante 


almacenamiento 


los procedimientos predefinidos MARK y 
RELEASE. Si escribimos: 


Mark (P); 


donde P puede ser un puntero de cual- 
quier tipo, al ejecutarse el procedimien- 
to se guarda en P la posición donde co- 
mienza la memoria disponible en ese 
momento. Posteriormente, si se ejecuta 
la instrucción: 


Release (P); 


toda la memoria que se reservó para va- 
riables dinámicas tras ejecutarse Mark 
(P) queda libre para otras nuevas. Los da- 
tos de aquellas variables se pierden y, 
por tanto, hay que tener mucho cuidado 
al utilizar estos procedimientos (depen- 
diendo de en qué orden se hubiese cons- 
truido un árbol, podrían quedar nodos 
desconectados de la raíz y serían, por 
tanto, irrecuperables). 

Un ejemplo de utilización podría ser, en 
el programa de análisis de léxico que 
realizamos recientemente, ejecutar Mark 
(Punt) antes de empezar a crear el árbol 
de búsqueda y, una vez extraida la infor- 
mación, ejecutar Release (Punt) para vol- 
ver a tener toda la memoria disponible. 
Punt, como ya se ha dicho, puede ser un 
puntero cualquiera y, por tanto, se po- 
dría definir así: 


var Punt: “integer; 


o sea, un puntero apto para apuntar a 
variables de tipo integer. 

Los compiladores más perfeccionados 
disponen también del procedimiento 
DISPOSE. Con él es posible dejar libre sólo 
la zona que corresponda a una variable 
específica. Si ejecutamos: 


Dispose (Punt); 


la zona ocupada por la variable a que 
apunta Punt quedara libre; en otras pala- 
bras, es una especie de «anti-NEW». Utili- 
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zando este método la memoria se libera 
a trozos, por lo que es posible que al 
cabo del tiempo, aunque la cantidad de 
memoria disponible sea grande, esté 
muy fragmentada. 

Por ello suele haber, además de Me- 
mAvail o su equivalente, otra función 
para conocer el tamaño del mayor pe- 
dazo disponible, pues aunque hubiese 
suficiente memoria libre para una varia- 
ble, pudiera ocurrir que no hubiese nin- 
gún pedazo lo suficientemente amplio 


begin 
if P = nil then 


begin 
new (P); 
with P” do 
begin 
Palabra 


Derecho 
end 
end 
else 


else 
with P* do 
begin 


Antes 


Minimo sería una constante igual al espa- 
cio de memoria necesario para cada 
nodo expresado en las mismas unidades 
empleadas por la función MemaAvalil. 

Con el Turbo-Pascal y los ordenadores 
personales IBM y compatibles, esa uni- 
dad es el «párrafo», que equivale a die- 
ciséis bytes; el espacio de memoria de 
los diferentes campos de cada nodo se- 
ria: 


Palabra: 30bytes (tantos como ca- 
racteres) 

Contador: 2bytes 

Izquierdo: 4 bytes 

Derecho: —4bytes 

total: 40 bytes 


Sin embargo, el Turbo-Pascal dispone 


procedure InsertarEn (var P: Puntero_t); 


if MemAvail >= Minimo then 


¿= Nueva; 
Contador := 13 
Izquierdo:= nil; 
¿= nil 


writeln (Nueva,” no archivada.” ) 


case Test (Nueva, Palabra) of 
Iguales: Contador:= Contador + 1; 

2 InsertarEn (Izquierdo); 

Despues: InsertarEn (Derecho) 


para albergarla. Un nombre típico es 
MAXAVAIL. 

En cualquier caso, el sistema MARK / RE- 
LEASE no conviene utilizarlo conjunta- 
mente con DISPOSE a la hora de liberar 
memoria. 


Primer ejemplo 


El procedimiento InsertarEn del progra- 
ma Lexico quedaría así si se desease 
controlar el espacio de memoria dinámi- 
ca disponible: 


(Xx crear nueva ficha %*) 


de la función SizeOf («tamaño de») que, 
aplicada a una variable o tipo, devuelve 
su tamaño en bytes; con ella, la compro- 
bación del espacio libre quedaría así: 


if MemAvail * 16 >= SizeOF (Nodo_t) 
then... 


Segundo ejemplo 


Vamos a modificar ahora el programa 
Lexico para que, tras presentar la lista de 
palabras por orden alfabético, las pre- 
sente por orden de frecuencias. 

Para ello iremos recorriendo los nodos 
del árbol original y los insertaremos en un 
nuevo árbol de búsqueda en el que el 
criterio de ordenación será el del orden 
de frecuencias. El orden de recorrido del 
árbol original afectará al orden en que 


aparezcan las palabras con idéntica fre- Para no agotar la memoria del ordena- 
cuencia y, para que sea alfabético, utili- dor, a medida que se vayan guardando 
zaremos el recorrido en orden central. las palabras en el nuevo árbol, se libera- 
Será necesaria una variable de tipo Pun- rá el espacio de su antiguo nodo. El pro- 
tero_t, a la que llamaremos RaiízNueva, cedimiento de creación del nuevo árbol 
para acceder al nuevo árbol. sería: 


procedure Transfiere (Origen: Puntero_t); 


AA a Y) 
(k Recorre los nodos del árbol apuntado pof Origen y x) 
(k los inserta en un árbol de búsqueda por frecuencias Ss 
a 
AS x) 
procedure GuardaEn (var P: Puntero_t); 


(£ guarda el contenido de Origen” en el árbol X) 
(* apuntado por P según el valor del contador %) 


begin 
if P= nil then 
begin 
new(P);3 
with P” do 
begin 
Palabra := Origen”.Palabraj; 
Contador := Origen”.Contador; 
Izquierdo:= nil; 
Derecho := nil 


if Origen”.Contador > Contador then GuardaEn (Izquierdo) 
else GuardaEn (Derecho) 


if Origen <> nil then with Origen” do 
begin 
Transfiere (Izquierdo); 
GuardaEn (RaizNueva)j; 
Transfiere (Derecho); 


(X tras salvar el contenido del nodo y sus descendentes: %) 
Dispose (Origen) 
end 
end; 


En la parte principal del programa, tras la presentación de la lista por orden alfa- 
bético, pondríamos: 


RaizNueva:= niljz 
Transfiere (Raiz); 

writeln; 

writeln ("Lista por orden de frecuencias:”); writeln; 
Diferentes:= 0; TotalPalabras:= 0; 

Puestra_Arbol (RaizNueva); 

witeln; 

writeln ("Palabras: ”, Diferentes,” Total: ”,TotalPalabras); 


se PASCAL 


El procedimiento GuardaEn, cuando 
llega a un nodo con contador inferior al 
del que queremos guardar, avanza por el 
subárbol izquierdo y, cuando es superior, 
por el derecho; cuando los dos contado- 
res son iguales avanza también por el de- 
recho, por lo que el nuevo nodo queda- 
rá por detrás según el nuevo criterio de 
ordenación. Esta circunstancia, unida al 
recorrido en orden central del árbol ori- 


Y 


(x 


q. 


begin 

if P=nil then P:= Origen 
else 

with P” do 


begin 


begin 
Transfiere (Izquierdo); 


GuardaEn (RaizNueva); 
SalvaDerecho:= Derecho; 
Derecho ¿= nil; 
Izquierdo 2= nilj 


Nada más integrar un nodo en el nue- 
vo árbol, se convierte en un nodo hoja, 
por lo que hay que anular sus punteros; 
sin embargo, como el recorrido del árbol 
original es en orden central, su puntero 
Derecho se necesita todavía; por otra 
parte, no se puede esperar a transferir su 
subárbol derecho para anularlos, pues 
quizá durante ese proceso haya que en- 
gancharle descendentes en el nuevo ár- 
bol. 


procedure Transfiere (Origen: Puntero_t); 


Bn 


(£ Recorre los nodos del árbol apuntado por Origen y los Y) 
(£ transfiere a un árbol de búsqueda por frecuencias x) 


y) 


var SalvaDerecho: Puntero_t; 


A )) 


procedure GuardaEn (var P: Puntero_t); 
(X integra Origen” en el árbol apuntado %) 
(£ por P según el valor del contador x) 
(X P apunta ahora al mismo nodo X*) 


if Origen”.Contador > Contador then GuardaEn (Izquierdo) 


E y) 


if Origen <> nil then with Origen” do 


Transfiere (SalvaDerecho) 


ginal, garantiza la aparición por orden 
alfabético de las palabras con idéntico 
contador. 

El procedimiento de transferencia pue- 
de ser mejorado desde el punto de vista 
de la velocidad si, con cada palabra, en 
lugar de crear un nuevo nodo, copiar los 
campos y borrar el anterior, utilizamos el 
mismo nodo retocando los punteros para 
que pase a pertenecer al nuevo árbol: 


A y) 


else GuardaEn (Derecho) 


Para resolver esto es para lo que se em- 
plea la variable SalvaDerecho (también 
se podría sacar la copia de Derecho an- 
tes de llamar a GuardaEn y encargarle a 
éste la anulación de los punteros). 


Al primer procedimiento Transfiere se le 
podría añadir control de memoria, pero 
al último, dado que no se crean nuevos 
nodos, ni tiene sentido ni resulta posible. 


'O Entrada salida 


UCHOS lenguajes, 
como el PASCAL, tie- 
nen sentencias para 
leer y escribir datos 
de forma secuencial 
del teclado, de la 
pantalla del ordena- 
dor o de archivos en 
disco. Estas sentencias son muy prácticas 
por su facilidad de manejo, pero existen 
aplicaciones en que las propiedades de 
los recursos son muy infrautilizadas si son 
accedidas mediante las sentencias es- 
tándar del lenguaje. La generalización 
en estas sentencias conllevan que las so- 
luciones más óptimas para algún tipo de 
recursos sean realmente ineficientes 
para otros. Así, pues, en los lenguajes de 
programación más modernos se tiende a 
hacer transparentes al usuario las propie- 
dades de algunos recursos para aplica- 
ciones que requieran un uso muy eficien- 
te de éstos. 

En MODULA-2 este problema se ha re- 
suelto sin incluir ninguna sentencia de 
entrada salida como parte integrante 
del lenguaje. Esta solución ha sido acep- 
tada debido a dos facilidades del MODU- 
LA: la existencia de módulos permitiendo 
la construcción jerarquizada de módulos 
de bibliotecas representando niveles 
crecientes de abstracción; y las facilida- 
des de bajo nivel que permiten acceder 
directamente a los sistemas de entrada 
salida. 

Si un programador desea ignorar los 
detalles concretos del manejo de los di- 


OTROS LENGUAJES 


versos recursos sólo debe utilizar los módu- 
los con un mayor nivel en la jerarquía 
dentro de la biblioteca. Si, por el contra- 
rio, desea hacer un uso muy eficiente de 
ellos, utilizará los de menor nivel. En este 
último caso hay que tener en cuenta que 
esto causaría que el programa no se po- 
dría transportar fácilmente a otro ordena- 
dor diferente o bajo otro sistema opera- 
tivo. 

Ahora explicaremos cómo está organi- 
zado el módulo estándar InOut donde se 
encuentran estas funciones, refiriéndo- 
nos sólo a las de mayor nivel. Debemos 
recordar que no es parte integrante del 
lenguaje, sino sólo unas bibliotecas que 
están accesibles en todos los compila- 
dores de MODULA. 

Dentro de los datos distinguiremos en- 
tre datos legibles e ilegibles. Los legibles 
son los dedicados a la comunicación 
con seres humanos, como los escritos en 
la pantalla o los leídos del teclado (sue- 
len ser de tipo CHAR, excepto si se trata 
de gráficos); los ¡legibles son los que ma- 
neja el ordenador internamente y los que 
utiliza para comunicarse con sus periféri- 
cos, o con otros ordenadores, pudiendo 
ser de cualquier tipo de datos. 

En cualquiera de los dos casos las ope- 
raciones suelen efectuarse de forma se- 
cuencial. 

Antes de presentar los datos, las funcio- 
nes deben ser capaces de realizar algu- 
nas operaciones con ellos para que sean 
legibles. Esta transformación se conoce 
como formatear los datos, por ejemplo, 
cuando se escribe un número éste debe 
convertirse en una secuencia de carac- 
teres. 


“0 OTROS LENGUAJES 


Para generalizar los dispositivos a utili- 
zar se consideraran los "stream", que son 
objetos con las siguientes caractenristi- 
cas: 


— Todos los elementos del 'stream' 
son del mismo tipo, que será conocido 
como tipo base del 'stream'. Si este tipo 
es CHAR, entonces será conocido como 
“text stream/'. 

— El número de elementos del 'stream' 
no es conocido a priori, por lo que será 
una estructura dinámica de datos. 

— El stream sólo puede modificarse 
añadiendo elementos al final, o borran- 
do toda la estructura. 

— Sólo un elemento del 'stream' es ac- 
cesible a un mismo tiempo, y éste es co- 
nocido como la posición dentro del 
'steam'. 

— Todo 'stream' tiene un modo de ac- 
ceso: lectura o escritura. 


Esta es la máxima generalización posi- 
ble de un fichero de entrada salida. En 
PASCAL un 'stream' sería algo parecido a 
una FILE. 

Veamos los procedimientos para leer 
datos de un 'stream'; éstos son: 


Read (Ch) 
ReadString (s) 


lee un carácter. 

lee una tira de caracte- 
res. 

lee un número entero. 

lee un número de tipo 
CARDINAL. 


Readint (x) 
ReadCard (x) 


El final del 'stream' es reconocido me- 
diante la variable importada Done. 


Read (ch) 
WHILE Done DO 
Procesar (ch); 
Read (ch); 
END 


Su valor es FALSE si en la operación de 


lectura no ha tenido éxito debido al final 
del 'stream'. 

Los procedimientos para escribir datos 
son: 
Write (C) 
WriteString (s) 


escribe un carácter. 
escribe una tira de ca- 


racteres. 

WriteLn escribe un carácter de 
fin de línea. 

Writelnt (i,n) escribe un entero con n 
caracteres. 


WriteCard 
(c,n) escribe un número con 
n caracteres. 

escribe un número en 
octal. 

escribe un número en 


hexadecimal. 


Para el manejo de los 'steam' existen 
las siguientes funciones: 


Openinput (s) prepara el 'stream' 
para entrada. 


WriteOct (x,n) 


WriteHex (x,n) 


OpenOutput 
(s) prepara el 'stream' 
para salida. 
Closelnput cierra el 'stream'. 


CloseOutput cierra el 'stream'. 


Estas funciones sirven para asociar fi- 
cheros con los 'stream' estándar In y Out. 
A menos que se declare explícitamente, 
se toma como entrada el teclado y como 
salida la pantalla. Debe tenerse la pre- 
caución de cerrar todos los ficheros an- 
tes de acabar el programa, o nos arries- 
gamos a graves problemas, como perder 
el fichero, e incluso el disco sobre el que 
lo grabamos. 

Para la lectura y escritura de reales 
existe el módulo estándar ReallnOut. 

Quien desee más información sobre los 
módulos de entrada salida de menor ni- 
vel le indicamos que consulte el manual 
de su compilador. 
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